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The MDL Programming Language 


Abstract 

The Ml)l programming language began existence in late 1970 (under the name Muddle) as a 
successor to L ivp (Moon. 1974). a candidate vehicle for the Dynamic Modeling System, and a possible 
base for implementation of Planner (Hewitt, I960). The original design goals included an 
interactive integrated environment for piogianiiiliitg. debugging, loading, and editing: ease in 
learning and use: facilities for structured, modular, shared programs; extensibility of sytttax. data 
types and operators: data type checking for debugging and opt iottal data type declaratiotts for 
compiled efficiency: associative storage, coroutining, and graphics. Aloitg the way to reaching those 
goals, it developed flexible input/output (including the ARPA Network), and flexible interrupt and 
signal handling. It now serves as a base for softwate prototyping, research, development, education, 
and implementation of the majority of programs at MIT-DMS: a library of sharable modules, a 
coherent user interface, special research projects, autonomous daemons, etc. 

This document was originally intended to hr a simple low-level introduction to MDL. It has. 
however, acrpiited a case of elephantiasis and now amounts to a discursive description of the whole 
interpreter, as realized in MDl release numbers 55 (ITS version) and 105 (Tenex and Tops-20 
I versions). (Significant changes from the previous edition are marked in the margin.) A low-level 
introduction may si ill he had by restricting one’s attention to specially-marked sections only. The 
scope of the document is confined as much as possible lo the interpreter itself. Other adjuncts 
(compiler assembler, pie-loaded user programs, library) are mentioned as little as possible, despite 
their value in promoting the language seen by a user from "basic survival" to "comfortable living". 
Indeed, MDl could not fulfill the above design goals without the compiler, assembler, structure 
editor, control-stack printer, context printer, pretty-printer, dynamic loader, and library system — all 
of whicii are not part of the interpreter but programs written in MDL and symbiotic with one 
another. Further information on these adjuncts can be found in Lebling's (1979) document. 
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Foreword 

Trying to explain MDL to an uninitiate is somewhat like trying to untie a Gordian knot. Whatever 
topic one chooses to discuss first, full discussion of it appears to imply discussion of everything 
else. What follows is a discursive presentation of MDL in an order apparently requiring the fewest 
forward references. It is not perfect in that regard: however, if you are patient and willing to 
accept a few. stated things as 'magic* until they can be explained better, you will probably not have 
too many problems understanding what is going on. 

There are no “practice problems': you are assumed to be learning MDL for some purpose, and your 
work in achieving that purpose will be more useful and motivated than artificial problems. In 
several cases, the examples contain illustrations of important points which are not covered in the 
text. Ignore examples at your peril. 

This document does not assume knowledge of any specific programming language on the your part. 
However, “computational literacy* is assumed: you should have written at least one program before. 
Also, very little familiarity is assumed with the interactive time-sharing operating systems under 
which MDL runs - ITS, Tcnex. and Tops-20 - namely just file and user naming conventions. 

Notation: 

Sections marked [I] are recommended for an uninitiate's first reading, in lieu of a separate 
introduction or primer for MDL. [On first reading, text within brackets like these should be 
ignored] 

Most specifically indicated examples herein are composed of pairs of lines. The first line of a pair, 
the input, always ends in S (which is how the ASCII character ESC is represented, and which always 
represents it). The second line is the result of MDL's groveling over the first. If you were to type 
all the first lines at MDL. it would respond with all the second lines. (More exactly, the "first line* 
is one or more objects in MDL follosved by S, and the “second line* is everything up to the next 
"first line”! 

Anything which is written in the MDL language or which is typed on a computer terminal appears 
herein in a gothic font, as in ROOT. A metasyntactic variable - something to be replaced in actual 
use by something else - appears as r*dix:(ix, in an italic font; often the variable will have both a 
meaning and a data type (as here), but sometimes one of those will be omitted, for obvious reasons. 

An ellipsis (...) indicates that something uninteresting has been omitted. The character A means 
that the following character is to be “controllified*: it is usually typed by holding down a terminal's 
CTRL key and striking the other key. 
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Chapter 1. Basie Interaction 

The purpose of this chapter is to provide you with that minimal amount of information needed to 
experiment with MDL while reading this document. It is strongly recommended that you do 
experiment, especially upon reaching chapter 5 (Simple Functions). 


1.1. Loading M D L [I] 

First, catch your rahhit. Somehow get the interpreter running -- the program in the file SYS:TS MDL 
in the ITS version or SYS:MPL.SAV in the Tenex version or SYS:MDL.EXE in the Tops-20 version. 
The intcrpicter will first type out some news relating to MDL. if any, then type 

I ISHN 1MG-A1 -LEVEL 1 PROCESS 1 

and then svait for you to type something. 

The program which you are now running is an interpreter for the language MDL. All it knows how 
to do is interpret MDL expressions. There is no special "command language"; you communicate 
with the program - make it do things for you - by actually typing legal MDL expressions, which it 
then interprets Everythi ng you can do at a terminal can be done in a program, and vice versa, in 
exactly the same way. 

The program w ill he referred to as just "MDL" (or "the interpreter") from here on. There is no 
ambiguity, since the program is just an incarnation of the concept "MDL". 


1.2. Typing [I] 

Typing a character at MDL normally just causes that character to be echoed (printed on your 
terminal) and remembered in a buffer. The only characters for which this is normally not true act 
as follows: 

Typing S (ESC) causes MDL to echo dollar-sign and causes the contents of the buffer (the characters 
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which you've typed) to be interpreted as an expression^) in MDL. When this interpretation is done, 
the result will be printed and MDL will wait for more typing. ESC will be represented by the glyph 
S in this document. 

Typing the rubout character (DEL in the ITS and Tops-20 versions, control-A in the Tenex version) 
causes the last character in the buffer - the one most recently typed •• to be thrown away (deleted). 
If you now immediately type another rubout, once again the last character is deleted - namely, the 
second most recently typed. Etc. The character deleted is echoed, so you can see what you’re doing. 
On some "display” terminals, rubout will "echo" by causing the deleted character to disappear. If no 
characters are in the buffer, rubout echoes as carriage-return line-feed. 

Typing ''I? (control-atsign) deletes everything you have typed since the last S, and prints a carriage- 
return line-feed. 

Typing A D (control-D) causes the current input buffer to be typed back out at you. This allows you 
to see what you really have, without the confusing re-echoed characters produced by rubout. 

Typing A L (control-L) produces the same effect as typing "‘D, except that, if your terminal is a 
"display" terminal (for example, IMLAC, ARDS, Datapoint), it first clears the screen. 

Typing ~G (eontrol-G) causes MDL to stop whatever it is doing and act as if an error had occurred 
(section 1.4). ~G is generally most useful for temporary interruptions to check the progress of a 
computation. ~G is "reversible" - that is, it does not destroy any of the "state" of the computation it 
interrupts. To "undo" a ~G, type the characters 

<ERRET T>$ 

(This is discussed more fully far below, in section 16.4.) 

Typing *5 (control-S) causes MDL to throw away what it is currently doing and return to a normal 
"listening” state. (In the Tenex and Tops-20 versions, ‘*0 also should have the same effect.) A S is 
generally most useful for aborting infinite loops and similar terrible things. A S destroys whatever 
is going on, and so it is ned reversible. 


1 




Most expressions in MDL include ’brackets" (generically meant) that must be correctly paired and 
nested. If you end your typing with the pair of characters !S (exclamation-point ESC), all currently 
unpaired brackets (hut not double-quotes, which bracket strings of characters) will automatically be 
paired and interpretation will start. Without the ! , MDL will just sit there waiting for you to pair 
them. If you have improperly nested parentheses, brackets, etc., within the expression you typed, an 
error will occur, and MDL will tell you what is wrong. 


Once the brackets are properly paired, MDL will immediately echo carriage-return and line-feed, and 
the next thing it prints will be the result of the evaluation. Thus, if a plain S is not so echoed, you 


; j 
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have some expression unclosed. In (hat case, if you have not typed any characters beyond the S, 
you can usually rub nut the S and other characters back to the beginning of the unclosed expression. 
Otherwise, what you have typed is beyond the help of rubout and A 9; if you want to abort it, use 

~S. 

MDL accepts and distinguishes between upper and lower case. All "built-in functions" must be 
referenced in upper case. 


1.3. Loading a File [I] 

If you have a program in MDL that you have written as an ASCII file on some device, you can 
"load" it by typing 

<F10AD file>i 

where file is the name of the file, in standard operating-system syntax, enclosed in "s (double- 
quotes). Omitted parts of the file name are taken by default from the file name "DSK: INPUT > a 
(in the ITS version) or "DSK: INPUT. MUD" (in the Tenex and Tops-20 versions) in the current disk 
directory. 

Once you type S, MDL will process the text in the file (including FLOADs) exactly as if you had 
typed it on a terminal and followed it with S, except that "values" produced by the computations 
are not printed. When MDL is finished processing the file, it will print "DONE". 

When MDL starts running, it will FLOAD the file "MUDDLE INIT" (ITS version) or "MUDDLE. INIT" 
(Tenex and Tops-'20 versions), if it exists. 


1.4. Errors - Simple Considerations [I] 

When MDL decides for some reason that something is wrong, the standard sequence of evaluation is 
interrupted and an error function is called. This produces the following terminal output: 

•ERROR* 

of ten-hyphenated-reason 
(unrtion-m- which-error -occurred 
LISTENING-AT-LEVEL integer PROCESS integer 

You can now interact with MDL as usual, typing expressions and having them evaluated. There 
exist facilities (built-in functions) allowing you to find out what went wrong, restart, or abandon 
whatever was going on. In particular, you can recover from an error -- that is, undo everything but 
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side effects and return to the initial typing phase ~ by typing the following first line, to which 
MD1. will respond with the second line: 

CIRRI IH 

LISTENING- AT -LEVEL 1 PROCESS 1 

If you type the following first line while still in the error state (before <ERRET». MDL will print, as 
shown, the arguments (or "parameters* or "inputs" or ‘independent variables") which gave 
indigestion to the unhappy function: 

CARGS < FRAME <f RAME »>J 
( ,ir£umcnts to unhappy function ] 

This will he explained by and by. 
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Chapter 2. Read, Evaluate, and Print 


2.1. Gen eral [II 

Oiicc you type $ and all brackets are correctly paired and nested, the current contents of the input 
buffer go through processing by three functions successively: first READ, which passes its output to 
EVAL ( evaluate ). which passes its output to PRINT, whose output is typed on the terminal. 

[Actually, the sequence is more like READ, CRLF, EVAL, PRIN1, CRLF (explained in chapter 11); 
MDL gives you a carriage-return line feed when the READ is complete, that is. when all brackets are 
paired.] 

Functionally, 

READ: printable representations --> MDL objects 

LVAl: MDL objects --> MDL objects 

PRINT : MDL objects «> printable representations 

That is, RIAD takes ASCII text, such as is typed in at a terminal, and creates the MDL objects 
represented by that text. PRINT takes MDL objects, creates ASCII text representations of them, and 
types them out. EVAL. which is the really important one. performs transformations on MDL 
ob jects. 


2.2. Philosophy (TYPCs) [I] 

In a general sense, when you are interacting with MDL. you are dealing with a world inhabited only 
by a particular set of objects: MDL objects. 

MDL objects are best considered as abstract entities with abstract properties. The properties of a 
particular MDL object depend upon the class of MDL objects to which it belongs. This class is the 
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TYPE of the MDL object. Every MDL object has a TYPE, and every TYPE has its own peculiarities. 
There are many different TYPEs in MDL; they will gradually be introduced below, but in the 
meantime here is a representative sample: SUBR (the TYPE of READ, EVAL and PRINT), FSUBR, LIST, 
VECTOR, FORM, FUNCTION, etc. Since every object has a TYPE, one often abbreviates "an object of 
TYPE type “ by saying "a type". 

The laws of the MDL world are defined by EVAL. In a very real sense. EVAL is the only MDL object 
which "acts’, which "does something". In "acting", EVAL is always 'following the directions" of some 
MDL object. Every MDL object should be looked upon as supplying a set of directions to EVAL; 
what these directions are depends heavily on the TYPE of the MDL object. 

Since EVAL is so ever-present, an abbreviation is in order: "evaluates to something " or "EVALs to 
something " should be taken as an abbreviation for "when given to EVAL, causes EVAL to return 
something'". 

As abstract entities. MDL objects are, of course, not "visible". There is, however, a standard way of 
representing abstract MDL objects in the real world. The standard way of representing any given 
TYPE of MDL object will be given below when the TYPE is introduced. These standard 
representations are what READ understands, and what PRINT produces. 


2.3. Example (TYPE FIX) Til 

IS 

1 

The following has occurred: 

First. READ recognized the character 1 as the representation for an object of TYPE FIX, in particular 
the one which corresponds to the integer one. (FIX means integer, because the decimal point is 
understood always to be in a fixed position: at the right-hand end.) READ built the MDL object 
corresponding to the decimal representation typed, and returned it. 

Then EVAL noted that its input was of TYPE FIX. An object of TYPE FIX evaluates to itself, so 
EVAL returned its input undisturbed. 

Then PRINT saw that its input was of TYPE FIX, and printed on the terminal the decimal character 
representation of the corresponding integer. 
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2.4. Example (TYPE FLOAT) [1] 

1 .OS 

1.0 

What went on was entirely analogous to the preceding example, except that the MDL object was of 
TYPE FLOAT. (FIOAI means a real number (of limited precision), because the decimal point can float 
around to any convenient position: an internal exponent part tells where it 'really* belongs.) 


2.5. Exam ple (TYP E ATOH, PNAME) [I] 

GEORGES 

GEORGE 

This time a lot more happened. 

READ noted that what was typed had no special meaning, and therefore assumed that it was the 
representation of an identifier, that is. an object of TYPE ATOM. (’Atom* means more or less 
indivisible.) REAP therefore attempted to look up the representation in a table it keeps for such 
purposes [a l 1ST of OBI ISTs. available as the local value of the ATOM OBLISTJ. If READ finds an 
ATOM in its table corresponding to the representation, that ATOM is returned as READ'S value. If READ 
fails in looking up. it creates a new ATOM, puts it in the table with the representation read [INSERT 
into <1 . ORl 1 5 T > usually], and returns the new ATOM. Nothing which could in any way be 
referenced as a legal "value* is attached to the new ATOM. The initially-typed representation of an 
ATOM becomes its PNAME, meaning its name for PRINT. One often abbreviates "object of TYPE ATOM 
with PNAME name" by saying "MOM name'. 

EVAL, given an ATOM, returned just that ATOM. 

PRINT, given an ATOM, typed out its PNAME. 

At the end of this chapter, the question 'what is a legal PNAME* will be considered. Further on, the 
methods used to attach values to ATOMs will be described. 


2.6. FlXes, FLOATS, and ATOMs versus READ: Specifics 
2.6.1. READ and FIXed-point Numbers 

READ considers any grouping of characters which are solely digits to be a FIX, and the radix of the 
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representation is decimal by default. A • (hyphen) immediately preceding such a grouping 
represents a negative FIX. The largest FIX representable on the PDP-10 is two to the 35th power 
minus one. or 34 350 738 367 (decimal): the smallest is one less than the negative of that number. If 
you attempt to type in a FIX outside that range, READ converts it to a FLOAT; if a program you 
write attempts to produce a FIX outside that range, an overflow error will occur (unless it is 
disabled). 

The radix used by READ and PRINT is changeable by the user: however, there are two formats for 
representations of FIXes which cause READ to use a specified radix independent of the current one. 
These are as follows: 

(1) If a group of digits is immediately followed by a period (.), READ interprets that group as 
the decimal representation of a FIX. For example, 10. is always interpreted by READ as the 
decimal representation of ten. 

(2) If a group of digits is immediately enclosed on both sides by asterisks (*), READ interprets 
that grotip as the octal representation of a FIX. For example, *10* is always interpreted by 
REAO as the octal representation of eight. 

2.6.2. READ and PRINT versus FLOATing-point Numbers 

PRINT can produce, and REAO can understand, two different formats for objects of TYPE FLOAT. 
The first is "decimal-point" notation, the second is "scientific" notation. Decimal radix is always 
used for representations of FLOATS. 

"Decimal-point" notation for a FLOAT consists of an arbitrarily long string of digits containing one 
. (period) which is followed by at least one digit. READ will make a FLOAT out of any such object, 
with a limit of precision of one part in 2 to the 27th power. 

"Scientific" notation consists of: 

(1) a number. 

(2) immediately followed by E or e (upper or lower case letter E). 

(3) immediately followed by an exponent, 

where a "number" is an arbitrarily long string of digits, with or without a decimal point (see 
following note): and an "exponent" is up to two digits worth of FIX. This notation represents the 
"number" to the "exponent" power of ten. Note: if the "number" as above would by itself be a FIX, 
and if the "exponent" is positive, and if the result is within the allowed range of FIXes, then the 
result will be a FIX. For example, READ understands 10E1 as 100 (a FIX), but 10E-1 as 1.0000000 (a 
FLOAT). 

The largcst-magnitude FLOAT which can be handled without overflow is 1 .7014118E+38 (decimal 
radix). The smallcst-magnitudc FLOAT which can be handled without underflow is . 14693679E-38. 
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2.6.3. READ and PNAMEs 

The quest inn "what is a legal PNAME?" is actually not a reasonable one to ask; any non-empty string 
of arbitrary characters can be the PNAME of an ATOM. However, some PNAMEs are easier to type to 
READ than others. But even the question "what are easily typed PNAMEs?" is not too reasonable, 
because: READ decides that a group of characters is a PNAME by default: if it can’t possibly be 
anything else, it’s a PNAME. So. the rules governing the specification of PNAMEs are messy, and best 
expressed in terms of what is not a PNAME. For simplicity, you can just consider any uninterrupted 
group of upper- and lower-case letters and (customarily) hyphens to be a PNAME; that will always 
work. If you are neither a perfectionist nor a masochist, skip to the next chapter. 

2.6.3.I. Non-PNAMCs 

A group of characters is ikM a PNAME if: 

(1) It represents a FLOAT or a FIX, as described above -- that is, it is composed wholly of digits, 
or digits and a single . (period), or digits and a . and the letter E or e (with optional minus 
signs in the right places). 

(2) If begins with a . (period). 

(3) It contains -- if typed interactively -- any of the characters which have special interactive 
effects: ''O, ^D, A L, *G, A S, “'0, $ (ESC), rubout. 

(4) It contains a format character -- space, carriage-return, line-feed, form-feed, horizontal tab, 
vertical tab. 

(5) It contains a , (comma) or a I (number sign) or a ' (single quote) or a ; (semicolon) or a X 
(percent sign). 

(6) It contains any variety of bracket -- ( or ) or L or ] or < or > or { or ) or * . 

In addition, the character \ (backslash) has a special interpretation, as mentioned below. Also, the 
pair of characters ! - (exclamation-point hyphen) has ? . extremely special interpretation, which you 
will reach at chapter 15. 

The characters mentioned in cases 4 through 6 are "separators" -- that is, they signal to READ that 
whatever it was that the preceding characters represented, it’s done now. They can also indicate the 
start of a new object's representation (all the opening "brackets" do just that). 

?.6.3.2. Examples 

The following examples are not in the "standard format’ of " tine typed ini result printed ", because 
they are not. in some cases, complete objects: hence. READ would continue waiting for the brackets to 
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be closed In oilier cases, they will produce errors during EVAluation if other -- currently irrelevant 
•• conditions are not met. Instead, the right-hand column will be used to state just what READ 
thought the input in the left-hand column really was. 

ABCS an ATOM of PNAME ABC 

abcS an ATOM of PNAME abc 


ARB II RAR II Y-LONG-PNAMES 
1 .2345S 
1 .2.345$ 

A .or . BS 
. A . or . BS 


an ATOM of PNAME ARBITRARILY-LONG-PNAME 
a FLOAT, PRINTed as 1.2345000 
an ATOM of PNAME 1.2.345 
an ATOM of PNAME A. or .B 

not an ATOM, but (as explained later) a FORM containing 
an ATOM of PNAME A.or.B 


MORf THAN ONfS 


three ATOMs. with PNAMEs MORE, and THAN, and ONE 


ab(cdS an ATOM of PNAME ab, followed by the start of something 

else (The something else will contain an ATOM of PNAME 
beginning cd. ) 

12345A34S an ATOM of PNAME 12345A34 (If the A had been an E, the 

object would have been a FLOAT. ) 


2.6.3. 3. \ (Rack slash) in AlOMs 

If you have a strange, uncontrollable compulsion to have what were referred to as "separators" above 
as part of the PNAMEs of your ATOMs. you can do so by preceding them with the character \ 
(backslash). \ will also magically turn an otherwise normal FIX or FLOAT into an ATOM if it appears 
amongst the digits. In fact, backslash in front of any character changes it from something special 
to "just another character" (including the character \). It is an escape character. 

When PR1N1 confronts an ATOM which had to be backslashed in order to be an ATOM, it will 
dutifully type out the required \s. They will not. however, necessarily be where you typed them; 
they will instead be at those positions which will cause READ the least grief. For example. PRINT will 
typr nut a PNAMI which consists wholly of digits by first typing a \ and then typing the digits • no 
matter where you originally typed the \ (or \s). 
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2.6.3. 4. Examples of Awful ATOMs 

The following examples illustrate the amount of insanity that can be perpetrated by using \. The 
format of the examples is again non-standard, this time not because anything is unfinished or in 
error, but because commenting is needed: PRINT doesn’t do it full justice. 


n\ one\ «md\ a\ twot 
1234\56789S 


one ATOM, whose PNAME has four spaces in it 

an ATOM of PNAME 123456789, which PRINTS as 
\1234 56789 


123\ S 


an ATOM of PNAME 123space, which PRINTS as \123\ , 
with a space on the end 

an ATOM whose PNAME is a single backslash 
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Chapter 3. Built-in Funotions 


3.1. Rep resentation [I] 

Up to this point, all the objects we have been concerned with have had no internal structure 
discernible in MDL. While the characteristics of objects with internal structure differ greatly, the 
way READ and PRINT handle them is uniform, to wit: 

READ, when applied to the representation of a structured object, builds and returns an object of 
the indicated TYPE with elements formed by applying READ to each of their representations in 
turn. 

PRINT, when applied to a structured object, produces a representation of the object, with its 
elements represented as PRINT applied to each of them in turn. 

A MDL object which is used to represent the application of a function to its arguments is an object 
of TYPE TORM. Its printed representation is 

< func arg-1 arg-2 ... arg-N > 

where func i* an object which designates the function to be applied, and arg-1 through arg-N are 
objects which designate the arguments or "actual parameters'* or "inputs". A FORM is just a 
structured object which is stored and can be manipulated like a LIST (its "primitive type" is LIST - 
chapter 6) The application of the function to the arguments is done by EVAL. The usual meaning 
of "function" (uncapitalized) in this document will be anything applicable to arguments. 


3.2. E valuation [I] 

EVAL applied to a FORM acts as if following these directions: 

First, examine the func (first element) of the FORM. If it is an ATOM, look at its "value" (global or 
local, in that order - see next chapter). If it is not an ATOM, EVAL it and look at the result of the 
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evaluation. If what you arc looking at is not something which can be applied to arguments, 
complain (via the ERROR function). Otherwise, inspect what you are looking at and follow its 
directions in evaluating or not evaluating the arguments (chapters 9 and 19) and then 'apply the 
function — that is. EVAL the body of the object gotten from func. 


3.3. Built-in Functions (TYPE SUBR, TYPE FSUBR) fll 

The built-in functions of MDL come in two varieties: those which have all their arguments EVALed 
before operating on them (TYPE SUBR, for 'subroutine*, pronounced "subber") and those which have 
none of their arguments EVALed (TYPE FSUBR, historically from Lisp (Moon. 1974). pronounced 
effsi.bhrr ). Collectively they will be called F/SUBRs. although that term is not meaningful to the 
interpreter. See appendix 2 for a listing of all F/SDBRs and short descriptions. The term 
Subroutine" will be used herein to mean both F/SUBRs and compiled user programs (RSUBRs and 
RSUBR-ENTRYs -chapter 19). 5 

Unless otherwise stated, every MDL built-in Subroutine mentioned is of TYPE SUBR . Also, when it 
is stated that an argument of a SUBR must be of a particular TYPE, note that this means that EVAL 
of what is there must he of the particular TYPE 

Another convenient abbreviation which will be used is 'the SUBR pname' in place of 'the SUBR which 

is initially the Value’ of the ATOM of PNAME pname. "The FSUBR pname " will be used with a similar 
meaning. 


3.4. Examples (♦ and FIX; Arithmetic) [11 

<♦24 6>S 
12 


The SUBR + adds numbers. Most of the usual arithmetic functions are MDL SUBRs: ♦, *, /, 

MIN. MAX, MOD, SIN, COS, ATAN, SORT, LOG, EXP, ABS. (See appendix 2 for short descriptions 
of these.) All except MOD, which wants FIXes. are indifferent as to whether their arguments are 
FLOAT or FIX or a mixture. In the last case, they exhibit 'contagious FLOATing': one argument of 
TYPE FLOAT forces the result to be of TYPE FLOAT. 


<F IX 1.0>S 
I 


The SUBR EIX explicitly returns a FIXcd-point number corresponding to a FLOATing-point number. 
FLOAT does the opposite. 

<♦ 5 <» 2 3»S 
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11 

<SQRT <+ <• 3 3> <* 4 4»>S 

5.0 

<-53 2>S 
0 

<- 5>S 
-5 

<HIN 1 2.0>S 

1 .0 

</ 11 7 2.0>S 
0.5 


Note this last result: the division of two FIXes gives a FIX with truncation, not rounding, of the 
remainder: the intermediate result remains a FIX until a FLOAT argument is encountered. 


3.5. Arithmetic: Details 

+ , -, *, /, MIN, and MAX all take any number of arguments, doing the operation with the first 
argument and the second, then with that result and the third argument, etc. If called with no 
arguments, each returns the identity for its operation (0, 0, 1, 1, the greatest FLOAT, and the 
least FLOAT, respectively): if called with one argument, each acts as if the identity and the argument 
had been supplied. They all will cause an overflow or underflow error if any result, intermediate or 
final, is too large or too small for the machine's capacity. (That error can be disabled, if necessary 
- section 16.9). 

One arithmetic function that always requires some discussion is the pseudo-random-number 
generator. MDI.'s is named RANDOM, and it always returns a FIX, uniformly distributed over the 
whole range of FIXes. If RANDOM is never called with arguments, it always returns the exact same 
sequence of numbers, for convenience in debugging. "Debugged" programs should give RANDOM two 
arguments on the first call, which become the seeds for a new sequence. Popular choices of new 
seeds are the numbers given by TIME (which see), possibly with bits modified (chapter 18). Example 
("pick a number from one to ten"): 

<+ 1 <MOD < RANDOM > 10»$ 

4 


i- 
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4. Values of Atoms 


4.1. Gen eral [1] 


There are two kinds of "value" which ran be attached to an ATOM. An ATOM can have either, both, or 
neither. They interact in no way (except that alternately referring to one and then the other ia 
inefficient!. These two values are referred to as the local value and the global value of an ATOM. 
The terms "local" and “global" arc relative to PROCESSes (chapter 20), not functions or programs. 
The SUBRs which reference the local and global values of an ATOM, and some of the characteristics 
of local versus global values, follow. 


4.2. Glob al Va lues 


4.2.1. SETG [I] 

A global value can be assigned to an ATOM by the SUBR SETG ("set global"), as in 

<SETG atom any} 

where atom must EVAL to an ATOM, and any can EVAL to anything. EVAL of the second argument 
becomes the global value of FVAL of the first argument. The value returned by the SETG is its 
second argument, namely the new global value of atom. 

Examples: 

<SETG FOO <SFTG BAR 500»S 
500 

The above made the global values of both the ATOM FOO and the ATOM BAR equal to the FIXed-point 
number 500 . 

<SETG BAR rOO>S 
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That made the global value of the ATOM BAR equal to the ATOM F00. 


4.2.2. GVAL [I] 

The SUBR GVAL ("global value") is used to reference the global value of an ATOM. 

<GVAL 

returns as a value the global value of atom. If atom does not evaluate to an ATOM, or if the ATOM to 
which it evaluates has no global value, an error occurs. 

GVAL applied to an ATOM anywhere, in any PROCESS, in any function, will return the same value. 
Any SETG anywhere changes the global value for everybody. Global values are context-independent. 

READ understands the character , (comma) as an abbreviation for an application of GVAL to 
whatever follows it. PRINT always translates an application of GVAL into the comma format. The 
following are absolutely equivalent: 

.atom <GVAL afom> 

Assuming the examples in section 4.21 were carried out in the order given, the following will 
evaluate as indicated: 

.roos 

500 

<GVAL FOO>S 

500 

.BARS 

FOO 

..BARS 

500 


4.2.3. Note on SUBRs and FSUBRs 

The initial GVAls of the ATOMs used to refer to MDL "built-in" Subroutines are the SUBRs and FSUBRs 
which actually get applied when those ATOMs are referenced. If you don’t like the way those 
supplied routines work, you are perfectly free to SETG the ATOMs to your own versions. 


4.2.1 - 4.2.3 


Values of Atoms 


32 


The MDL Programming Language 


4.2.4. GUNASSIGN 

< GUN ASSIGN Atom) 

(“glob.il unassign") cause* Atom to have no assigned global value, whether or not it had one 
previously. The storage used for the global value can become free for other uses. 

4.3. t ot al Values 


4.3.1. SE I (I) 

The SUBR SET is used to assign a local value to an ATOM. Applications of SET are of the form 

< SE T Atom Any > 

SET returns EVAl of Any just like SETG. 

Examples: 

<SE T BAR <SET F00 100»S 
100 

Both BAR and F00 have been given local values equal to the FIXed-point number 100. 

<SET TOO BAR >S 
BAR 

FOO has been given the local value BAR. 

Note that neither of the above did anything to any global values FOO and BAR might have had. 

4.3.2. LVAl [I] 

The SUBR used to extract the local value of an ATOM is named LVAL. As with GVAL, READ 
understands an abbreviation for an application of LVAL: the character . (period), and PRINT 
produces it. The following two representations are equivalent, and when EVAL operates on the 
corresponding MDL object, it returns the current local value of atom: 

<LVAL Atom > .Atom 
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The local value of an ATOM is unique within a PROCESS. SETting an ATOM in one PROCESS has no 
effect on its LVAL in another PROCESS, because each PROCESS has its own 'control stack” (chapters 
20 and 22). 

Assume all of the previous examples in this chapter have been done. Then the following evaluate as 
indicated: 


.BARS 

100 

<LVAL BAR>$ 
100 
.FOOS 
BAR 
..FOOS 
FOO 


4.3.3. UNASSIGN 

< UNASSIGN Mom> 

causes atom to have no assigned local value, whether or not it had one previously. 


4.4. VALUE 


VALUE is a SUBR which takes an ATOM as an argument, and then: 

(1) if the ATOM has an LVAL, returns the LVAL; 

(2) if the ATOM has no LVAL but has a GVAL, returns the GVAL; 

(3) if the ATOM has neither a GVAL nor an LVAL, calls the ERROR function. 

This order of seeking a value is the opposite of that used when an ATOM is the first element of a 
FORM. The latter will be called the C/LVAL, even though that name is not used in MDL. 

Example: 


CUNASSIGN A>S 
A 

<SETG A 1 >3 
1 

<VALUE A>S 
1 

<SET A 2>i 
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Chapter 5. Simple Functions 


51. Gene ral [IJ 

The MDL equivalent of a "program" (uncompiled) is an object of TYPE FUNCTION. Actually, full- 
blown "programs" arc usually composed of sets of FUNCTIONS, with most FUNCTIONS in the set acting 
as "subprograms". 

A FUNCTION may he considered to be a SUBR or FSUBR which you yourself define. It is "run" by 
using a F ORH to apply it to arguments (for example, ifunchon arg-l arg-2 ... >), and it always 
"returns" a single object, which is used as the value of the FORM that applied it. The single object 
may be ignored by whatever “ran" the FUNCTION — equivalent to "returning no value -- or it may be 
a structured object containing many objects -- equivalent to "returning many values . MDL is an 
“applicative" language, in contrast to "imperative" languages like Fortran. In MDL it is impossible 
to return values through arguments in the normal case; they can be returned only as the value of the 
FORM itself, or as side effects to structured objects or global values. 

In this chapter a simple subset of the FUNCTIONS you can write is presented, namely FUNCTIONS 
which "act like" SUBRs with a fixed number of arguments. While this class corresponds to about 907. 
of the FUNCTIONS ever written, you won’t be able to do very much with them until you read further 
and learn more about MDL's control and manipulatory machinery. However, all that machinery is 
just a bunch of SUBRs and FSUBRs. and you already know how to "use" them; you just need to be told 
what they do. Once you have FUNCTIONS under your belt, you can immediately make use of 
everything presented from this point on in this document. In fact, we recommend that you do so. 


5.2. Representation [I] 

A FUNCTION is just another data object in MDL. of TYPE FUNCTION. It can be manipulated like any 
other data object. PRINT represents a FUNCTION like this: 

#FUNCT ION (elements) 
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that is. a number sign, the ATOM FUNCTION, a left parenthesis, each of the elements of the 
FUNCTION, and a right parenthesis. Since PRINT represents FUNCTIONS like this, you can type them 
in to READ this way. (Rut there are a few TYPEs for which that implication is false.) 

The elements of a FUNCTION can he "any number of anythings"; however, when you use a FUNCTION 
(apply it with a FORM). EVAL will complain if the FUNCTION does not look like 

erUNCTION ( act: atom arguments. -list dec I body ) 

where act and ded are optional (section 9.8 and chapter 14); body is at least one MDL object — any 
old MD1. object: and. in this simple case, argument s is 


( any number of ATQMs) 


that is. something READ and PRINTed as: left parenthesis, any number *• including lero — of ATOMS, 
right parenthesis. (This is actually a normal MDL object of TYPE LIST, containing only ATOMs.) 

Thus, these fUNCTlONs will cause errors - but only when used: 


^FUNCTION () 

#rUNCTION ((1) 2 7.3) 
••FUNCTION ((A B C D)) 
#FUNCT ION (<♦ 1 2> A C) 


-- no argument LIST or body 
-- non-ATOH in argument LIST 
-- no body 
-- no argument LIST 


These FUNCTIONS will never cause errors because of format: 


#rilNCTION (012 3 4 5) 

••FUNCTION ((A) A) 

•FUNCTION (()()()()()()()()) 

••FUNCTION ((A B C D EE F G H HIYA) <♦ .A .HIYA>) 

••FUNCTION ((0) <SETG C <* .0 ,C» <♦ <HOD ,C 3> .Q>) 

and the last tsvn actually do something which might be useful. (The first three are rather 
pathological, but legal.) 


5.3. Ap plication of FUNCT IONs: R inding [1} 

FUNCTIONS, like SUBRs and FSUBRs. are applied using FORNs. So. 

< ‘•FUNCT ION ((X) <• .X .X>) 5>S 

25 

applied the indicated FUNCTION to 5 and returned 25. 
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What FVAL dors when applying a FUNCTION is the following: 

(1) Create a "world" in which the ATOMs of the argument LIST have been SET to the values 
applied to the FUNCTION, and all other ATOMs have their original values. This is called 
"binding". 

-- In the above, this is a "world" in which X is SET to 5. 

(2) In that new "world", evaluate all the objects in the body of the FUNCTION, out after the 
other, from first to last. 

- In the above, this means evaluate <* .X .X> in a "world" where X is SET to 5. 

(31 Throw away the "world" created, and restore the LVALs of all ATOMs bound in this 
application of the FUNCTION to their originals (if any). This is called "unbinding*. 

- In the above, this simply gives X back the local value, if any, that it had before binding. 

(4) Return as a value the |ast^ value obtained when the FUNCTION’S body was evaluated in step 

( 2 ). 

- In the above, this means return 25 as the value. 

Tlie "world" mentioned above is actually an object of TYPE ENVIRONMENT. The fact that such 
"worlds" are separate from the FUNCTIONS which cause their generation means that all MDL 
FUNCTIONS can be used recursively. 


The only thing that is at all troublesome in this sequence is the effect of creating these new 
"worlds", in particular, the fact that the previous world is completely restored. This means that if, 
inside a FUNCTION, you SET one of its argument ATOMs to something, that new LVAL will not be 
remembered svhen FVAL leaves the FUNCTION. However, if you SET an A T OM which is no t in the 
argument LIST (or SETG any ATOM) the new local (or global) value will be remembered. Examples: 

<SET X 0>$ 

0 

^FUNCTION ((X) <SET X <• .X .X») 5>S 

25 

.XS 

0 
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On the other hand. 

<SET Y 0>i 
0 

^FUNCTION ((X) <SET Y <« .X .X») 5>S 

25 

.YS 

25 

By using PRINT as a SUBR, we can "see" that an argument’s LVAL really is changed while EVALuating 
the body of a FUNCTION: 

<SET X 5>$ 

5 

<#FUNCTION ((X) <PRINT .X> <♦ .X 10>) 3>$ 

3 13 

.XS 

5 

The first number after the application FORM was typed out by the PRINT; the second is the value of 
the application. 

Remembering that LVALs of ATOMs tun in argument LISTs are not changed, we can reference them 
within FUNCTIONS, as in 

<5ET Z 100>$ 

100 

<#FUNCT ION ((Y) </ .Z .Y>) 5>S 

20 

ATOMs used like Z or Y in the above examples are referred to as "free variables". The use of free 
variables, while often quite convenient, is rather dangerous unless you know exactly how a 
FUNCTION will ajways be used: if a FUNCTION containing free variables is used within a FUNCTION 
within a FUNCTION within . . .. one of those FUNCTIONS might just happen to use your free variable 
in its argument LIST , binding it to some unknown value and possibly causing your use of it to be 
erroneous. Please note that "dangerous", as used above, really means that it may be effectively 
impo ssible (I) for other people to use your FUNCTIONS, and (2) for you to use your FUNCTIONS a 
month (two weeks?) later. 
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5.4. D efining t UNCI lONs (rUNCHO N and DEFINE) [I] 

Obviously, typing #1 UNCI ION (...) all the time is neither reasonable nor adequate for many 
purposes. Normally, you just want a FUNCTION to be the GVAl of some ATOM -- the way SUBRs and 
FSUBRs are - so you can use it repeatedly (and recursively). Note that you generally do not want a 
FUNCTION to be the LVAL of an ATOM; this has the same problems as free variables. (Of course, there 
are always cases where you are being clever and want the ATOM to be re-bound . . . .) 

One svay to "name" a FUNCTION is 

< SE T G SQUARE IFUNCTION ((X) <• .X .X>)>S 
#FUNC1 ION ((X) <* .X .X>) 

So that 


I 

J 


i 

* 


(SQUARE 5>S 
25 

(SQUARE 100>S 
10000 


Another way. which is somewhat cleaner in its typing: 

(SE TG SQUARE (FUNCTION (X) (« .X .X»>$ 

#FUNCT ION ((X) (« .X .X>) 

FUNCTION is an TSUllR which simply makes a FUNCTION out of its arguments and returns the created 
FUNCTION. 


This, however, is generally the best way: 

(DEFINE SQUARE (X) (* .X .X>>S 

SQUARE 

.SQUARES 

^FUNCTION ((X) (* .X .X>) 


The last two lines immediately above are just to prove that DEFINE did the "right thing". 


DFFINF is an I SUBR which SrTGs FVAl of i»; first argument to the FUNCTION it nukes from the rest 
of its arguments, and then returns EVAL of its first argument. DEFINE obviously requires the least 
typing of the above methods, and is "best" from that standpoint. However, the real reason for using 
DEFINE is the following: If FVAL of DEFINE’s first argument already has a GVAL, DEFINE produces an 
error. This helps to krep you from accidently redefining things -- like MDL SUBRs and FSUBRs. The 
SETG constructions should be used only when you really do want to redefine something. DEFINE will 
be used in the rest of (his document. 
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[Actually, if it is absolutely necessary to use DEFINE to 'redefine* things, there is a 'switch' which 
can be used: if the LVAL of the ATOM REDEFINE is T (or anything not of TYPE FALSE). DEFINE will 
produce no errors. The normal state can be restored by evaluating <SET REDEFINE <>>. See 
chapter 8.] 


5.5. Examples (Com incuts) [II 

Using SQUARE as defineo above: 

< DEFINE IIYP0T (SIDE-1 SIDE-2) 

.-"this is a comment. This FUNCTION finds the 
length of the hypotenuse of a right triangle 
of sides SIDE-1 and SIDE-2." 

<SQRT <♦ < SQUARE .SIDE-1> < SQUARE .SIDE-2»»S 

IIVO0T 

<HYP01 3 4)1 
5.0 

Note that carriage-returns, line-feeds, tabs. etc. are just separators, like spaces. A comment is any 
s ine If MOL object which follows a ; (semicolon). A comment can appear between any two MDL 
objects. A comment is totally ignored by EVAL but remembered and associated by READ with the 
place in the FUNCTION (or any other structured object) where it appeared. (This will become clearer 
after chapter 13.) The "s (double-quotes) serve to make everything between them a single MDL 
object, whose TYPE is STRING (chapter 7). (SQRT is the SUBR which returns the square root of its 
argument. It always returns a FLOAT.) 

A whimsical FUNC110N: 

< DEFINE ONE (THETA) ;"This FUNCTION always returns 1." 

<♦ < SQUARE <SIN ,THETA» 

< SQUARE <C0S .THETA»»S 

ONE 

<0NE 5>S 
0.99999994 
CONE 0 . 23>S 
0.99999999 

ONE always returns (approximately) one. since the sum of the squares of sin(x) and cos(x) is unity 
for any x. (SIN and COS always return FLOATs, and each takes its argument in radians. ATAN 
(arctangent) returns its value in radians. Any other trigonometric function can be compounded 
from these three.) 
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MDL doesn't have a general "to the power’ SUBR, so let's define one using LOG and EXP (log base e, 
and e to a power, respectively: again, they return FLOATs). 

<DEFINE ** (NUM PWR) <EXP <« .PWR <L0G .NUM»»S 
• * 

<** 2 2>S 

4.0000001 
<** 5 3>S 
125.00000 
<«* 25 0 . 5>J 

5.0000001 


Two FUNCTIONS which use a single global variable (Since the GVAL is used, it cannot be rebound.): 

<DEF INE START () <SETG GV 0»J 
START 

< DEFINE STEP () <SETG GV <♦ ,GV 1»>S 

STEP 

<START>S 

0 

<STEP>5 

1 

<STEP>$ 

2 

<5TEP>S 

3 

START and STEP take no arguments, so their argument LISTs are empty. 

An interesting, hut pathological. FUNCTION: 

<DEFINE INC (ATM) <SET .ATM <♦ ..ATM 1»>S 
INC 

<SET A 0>S 
0 

< INC A>S 
1 

< INC A>S 
2 

.AS 

2 

INC takes an ATOM as an argument, and SETs that ATOM to its current LVAL plus 1. Note that inside 
INC, the ATOM ATM is SET to the ATOM which is its argument; thus ..ATM returns the LVAL of the 
argument. However, there is a problem: 
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<SET ATM 0>S 
0 

< INC A1M>S 




*1 RROR* 

ARG-WRONG-TYPE 


LISTCNING-AT-LEVEL Z PROCESS 1 
< ARGS <f RAME <TRAME>»S 
[ATM 1] 


The MDL Programming Language 




. \ 


The error occurred because .ATM was ATM, the argument to INC, and thus . .ATM was ATM also. We 
really want the outermost . in ..ATM to be done in the "world" (ENVIRONMENT) which existed just 
before INC was entered -- and this definition of INC does both applications of LVAL in its own 
"world". Techniques for doing INC "correctly" will be covered below. Read on. 
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Chapter 6. Data Types 


6.1. Genera l [I] 

A MDl. object consists of two parts: its TYPE and its “data part’ (appendix I). The interpretation of 
the "data part" of an ob ject depends of course on its TYPE. The structural organization of an object, 
that is. the way it is organized in storage, is referred to as its “primitive type*. While there are 
many different TYPrs of objects in MDL, there arc fewer primitive types. 

All structured objects in MDl. are ordered sequences of elements. As such, there are SUBRs which 
operate on all of them uniformly, as ordered sequences. Oil the other hand, the reason for having 
different primitive types of structured objects is that there are useful qualities of structured objects 
which are mutually incompatible. There are, therefore, SUBRs which do not work on all structured 
objects; these SUBRs exist to take full advantage of those mutually incompatible qualities. The 
most -commonly -used primitive types of structured objects are discussed in chapter 7, along with 
those special SUBRs operating on them. 

It is very easy to make a new MDL object that differs from an old one only in TYPE, as long as the 
primitive type is unchanged. It is relatively difficult to make a new structured object that differs 
from an old one in primitive type, even if it has the same elements. 

Before talking any more about structured objects, some information needs to be given about TYPES 
in general. 


6.2. Prin ted Representation [II 

Tlirre are many TYPEs for which MDL has no specific representation. There aren’t enough different 
kinds of brackets. The representation used for TYPES without any special representation is 

ttvpc r cpr merit Mion-*$-i(-it-were-its-primitive-type 

READ will understand that format for any TYPE, and PRINT will use it by default. This 
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representational format will be referred to below as "# notation''. It was used above to represent 
FUNCTIONS. 


6.3. SlIBRs Relate d t o TYPEs 


6.3.1. TYPE [I] 

<TYPE any') 

returns an ATOM whose PNANE corresponds to the TYPE of any. There is no TYPE TYPE". To type a 
TYPE (aren't homonyms wonderful?), just type the appropriate ATOM, like FIX or FLOAT or ATOM etc. 
However, in this document we will use the convention that a metasyntactic variable can have type 
for a "data type"; for example, foo.type means that the TYPE of too is ATOM, but the ATOM must be 
something that the SUBR TYPE can return. 

Examples: 

< TYPE IH 
FIX 

< TYPE 1.0>S 
FLOAT 

< TYPE ♦>* 

ATOM 

<TYPE .♦>! 

SUBR . 

CTYPE fdORGE >S 
ATOM 


6.3.2. PR1M1YPE [I] 

< PRIM TYPE any> 

evaluates to the primitive type of any. The PRIMTYPE of any is an ATOM which also represents a 
TYPE. The way an object can be manipulated depends solely upon its PRIMTYPE; the way it is 
evaluated depends upon its TYPE . 

Examples: 

< PR IMT YPF l>J 
WORD 

< PRIMTYPE 1.0>S 

6.2 • 6.3.2 Data Type* 





The MDL Programming Language 


45 


WORD 

<PRIMTYPE ,♦>* 
WORD 

<PR1MTYPE GEORGE >S 
ATOM 


6.S.S. TYPEPRIM (I] 

<TYPEPRIM type> 


returns tlie PR1MTYPE of ait object whose TYPE is type type is. as usual, an ATOM used to designate a 
TYPE. 

Examples: 


< TYPEPRIM FIX>S 
WORD 

< TYPEPRIM FL0AT>$ 
WORD 

<TYPEPRIM FUBR>S 
WORD 

< 1 YPEPRIM ATOM>S 
ATOM 

OYPEPRIM FORM>S 
LIST 


6.3.4. CHTYPE [I] 

<CHTYPE any type> 

("change type") returns a new object that has TYPE type and the same "data part" as any (appendix 


<CHTYPE (♦ 2 2) F0RM>S 
<♦ 2 2 > 

An error is generated if the PRIMTYPE of any is not the same as the TYPEPRIM of type. An error will 
also be generated if the attempted CHTYPE is dangerous and/or senseless, for example, CHTYPEing a 
FIX to a SUBR . Unfortunately, there are few useful examples we can do at this point. 

(CHTYPEing a FIX to a FLOAT or vice versa produces, in general, nonsense, since the bit formats for 
FIXes and FLOATs are different. The SUBRs FIX and FLOAT convert between those formats. Useful 
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obscurity: because of their internal representations on the PDP-10, <CHTYPE <MAX> FIX> gives the 
least possible TIX, and analogously for MIN.] 

Passing note: "# notation" is just an instruction to READ saying "READ the representation of the 
PRIMTYPE normally and (literally) CHTYPE it to the specified TYPE". [Or. if the PRIMTYPE is 
TEMPLATE, "apply the GVAL of the TYPE name (which should be a TEMPLATE constructor) to the given 
elements of the PRIMTYPE TEMPLATE as arguments."] 


6.4. More SUBRs Related to TYPEs 




6.4.1. ALLTYPES 

<ALLTYPES> 

returns a VECTOR (chapter 7) containing just those ATOMs which can currently be returned by TYPE 
or PRIMTYPE. This is the very "TYPE vector" (section 22.1) that the interpreter uses; look, but don't 
touch. No examples: try it. or see appendix 3. 


6.4.2. VALIO-TYPE? 

<VALID-TYPE? a(om> 

returns #FALSE () if atom is not the name of a TYPE, and the same object that <TYPE-C »tom> 
(section 19.5) returns if it is. 


6.4.3. NEWTYPE 

MDL is a type-extensible language, in the sense that the programmer can invent new TYPEs and use 
them in every way that the predefined TYPEs can be used. A prog ram -defined TYPE is called a 
NEWTYPE. Now PRIMTYPEs cannot be invented except by changing the interpreter; thus the TYPEPRIH 
of a NEWTYPE must he chosen from those already available. But the name of a NEWTYPE (an ATOM of 
course) can be chosen freely -- so long as it does not conflict with an existing TYPE name. More 
importantly, the program that defines a NEWTYPE can be included in a set of programs for 
manipulating objects of the NEWTYPE in ways that are more meaningful than the predefined SUBRs 
of MDL. 

Typically an object of a NEWTYPE is a structure that is a model of some entity in the real world ~ or 
whatever world the program is concerned with -- and the elements of the structure are models of 
parts or aspects of the real-world entity. A NEWTYPE definition is a convenient way of formaliting 
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this correspondence, of writing it down for all to see and use rather than keeping it in your head. 
If the defining set of programs provides functions for manipulating the NEWTYPE objects in all 
ways that are meaningful for the intended uses of the NEWTYPE, then any other program that wants 
to use the NEW TYPE can call the manipulation functions for all its needs, and it need never know or 
care about the internal details of the NEWTYPE objects This technique is a standard way of 
providing modularity and abstraction. 

For example, suppose you wanted to deal with airline schedules. If you were to construct a set of 
programs that define and manipulate a NEWTYPE called FLIGHT, then you could make that set into a 
standard package of programs and call on it to handle all information pertaining to scheduled 
airline flights. Since all FLIGHTS would have the same quantity of information (more or less) and 
you would want quick access to individual elements, you would not want the TYPEPRIM to be LIST. 
Since the elements would be of various TYPES, you would not want the TYPEPRIM to be UVECTOR ~ 
nor its variations STRING or BYTES. The natural choice would be a TYPEPRIM of VECTOR (although 
you could gain space and lose time with TEMPLATE instead). 

Now. the individual elements of a FLIGHT would, no doubt, have TYPEs and meanings that don't 
change. The elements of a FLIGI 1 might be airline code, flight number, originating-airport code, 
list of intermediate stops, destiuati n-airport code, type of aircraft, days of operation, etc. Each and 
every FLIGHT would have the airline code for its first element (say), the flight number for its second, 
and so on. It is natural to invent names (ATOMs) for these elements and always refer to the elements 
by name. For example, you could <SETG AIRLINE 1> or <SETG AIRLINE < OFFSET 1 FLIGHT» - 
and in either case <MANIFEST AIRLINE) so the compiler can generate more efficient code. Then, if 
the local value of F were a FLIGHT, <AIRLINE .F> would return the airline code, and <AIRLINE .F 
AA> would set the airline code to AA. Once that is done, you can forget about which element comes 
first: all you need to know are the names of the offsets. 

The next step is to notice that, outside the package of FLIGHT functions, no one needs to know 
whether AIRLINE is just an offset or in fact a function of some kind. For example, the scheduled 
duration of a flight might not be explicitly stored in a FLIGHT, just the scheduled times of 
departure and arrival. But. if the package had the proper DURATION function for calculating the 
duration, then the call <DURATION ,F> could return the duration, no matter how it is found. In this 
way the internal details of the package are conveniently hidden from view and abstracted away. 

The form of NEWTYPE definition allows for the TYPEs of all components of a NEWTYPE to be declared 
(chapter MI. for use both by a programmer while debugging programs that use the NEWTYPE and by 
the compiler for generating faster code. It is very convenient to have the type declaration in the 
NEWTYPE definition itself, rather than replicating it everywhere the NEWTYPE is used. (If you think 
this declaration might be obtrusive while debugging the programs in the NEWTYPE package, when 
inconsistent improvements are being made to various programs, you can either disassociate any 
declaration from the NEWTYPE or turn off MDL type-checking completely. Actually this declaration 
is typically more useful to a programmer during development than it is to the compiler.) 

< NEWTYPE atom type> 


6.4.3 


Data Types 


48 


The MDL Programming Language 






L 


returns Mom. after causing it to become the representation of a brand-new TYPE whose PRIMTYPE is 
<TYPEPRIM fypr>. What NEWTYPE actually does is make atom a legal argument to CHTYPE and 
TYPEPR1H. (Note that names of new TYPE s can be blocked lexically to prevent collision with other 
names, just like any other ATOMs - chapter 15.) Objects of a NEWTYPE-created TYPE can be generated 
by creating an object of the appropriate PRIMTYPE and using CHTYPE. They will be PRINTed 
(initially!, and can be directly typed in. by the use of "# notation" as described above. EVAL of any 
object whose TYPE was created by NEWTYPE is initially the object itself, and, initially, you cannot 
APPLY something of a generated TYPE to arguments. But see below. 

Examples: 

< NEWTYPE GARGLC FIX>S 
GARGLE 

<TYPEPRIM GARGLE >$ 

WORD 

<SET A <CIITYPE 1 GARGLE»S 
#GARGLt *000000000001* 

<SET B # GARGLE 100>S 
* GARGLE *000000000144* 

<TYPE ,B>S 
GARGLE 

<PRIMTYPE . B>S 
WORD 


6.4.4. PRINTTYPE, EVALTYPE and APPLYTYPE 
< PR I NT TYPE type how> 

< EVALTYPE type how> 

< APPLYTYPE type how> 

all return type, after specifying how MDL is to deal with it. 

These three SUBRs can be used to make newly-generated TYPEs behave in arbitrary ways, or to 
change the characteristics of standard MDL TYPEs. PRINTTYPE tells MDL how to print type. 
EVALTYPE how to evaluate it. and APPLYTYPE how to apply it in a FORM. 

how can be either a TYPE or something that can be applied to arguments. 

If how is a TYPE, MDL will treat type just like the TYPE given as how. how must have the same 
TYPEPRIM as type. 

If how is applicable, it will be used in the following way: 
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For PR1NTTYPE, how should take one argument: the object being output, how should output 
something without formatting ( PR IN 1-style); its result is ignored. (Note: how cannot use an output 
SUBR on how's own t\pe: endless recursion will result. OUTCHAN is bound during the application to 
the CHANNEL in use. or to a pseudo-internal channel for FLATSIZE -- chapter 11.) If how is the SUBR 
PRINT, type will receive no special treatment in printing, that is, it will be printed as it was in an 
initial MDL or immediately after its defining NEWTYPE. 

For EVALTYPF., how should take one argument: the object being evaluated. The value returned by 
how will be used as EVAL of the object. If how is the SUBR EVAL, type will receive no special 
treatment in evaluation. 


For APPLYTYPE, how should take at least one argument. The first argument will be the object being 
applied: the rest will be the objects it was given as arguments. The result returned by how will be 
used as the result of the application. If how is the SUBR APPLY, type will receive no special 
treatment in application to arguments. 


If any of these SUBRs is given only one argument, that is if how is omitted, it returns the currently 
active how (a TYPE or an applicable object), or else #FALSE () if type is receiving no special 
treatment in that operation. 


Unfortunately, these examples are fully understandable only after you have read through chapter 11. 


< DEFINE ROMAN -PRINT (NUMB) 

<COND (COR <L=? .NUMB 0> <G? .NUMB 3999» 

CPRINC CCHTYPE .NUMB TIME») 

(T 

CRCPR1NT </ .NUMB 1000> '![!\M]> 

CRCPRINT </ .NUMB 100> '![!\C !\D !\M]> 

CRCPRINT </ .NUMB 10> '![!\X !\L !\C]> 

CRCPRINT .NUMB '![!\I !\V !\X]>)»S 

ROMAN-PRINT 


CDEriNE RCPRINT (MOON V) 
CSET MOON CMOO .MOON 10» 
CCOND (C = =? 0 .MODIO) 


(<==? 

1 

.MODIO 

CPRINC 

C) 

.V») 



(Css? 

2 

,MOON> 

CPRINC 

<1 

.V» CPRINC 

Cl .V») 


(Css? 

3 

.M0DN> 

CPRINC 

<1 

.V» CPRINC 

Cl .V» CPRINC 

Cl ,V») 

(Css? 

4 

.M0DN> 

CPRINC 

<1 

.V» CPRINC 

C2 .V») 


(Css? 

5 

.M0DN> 

CPRINC 

C2 

.V») 



(Css? 

6 

.M0DN> 

CPRINC 

C2 

.V» CPRINC 

Cl .V») 


(Css? 

7 

.MODN> 

CPRINC 

<2 

.V» CPRINC 

Cl .V» CPRINC 

Cl .V») 

(Css? 

8 

.MODIO 







CPRINC C2 .V>> 
CPRINC Cl .V» 
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< PRINC <1 .V>> 

< PR INC <1 .V») 

(< = = ? 9 .MOON) < PRINC <1 .V» <PRINC <3 .V»)»S 
RCPRINT 

<PR1NT1YPE TIME FIX) ;'fairly harmless but necessary here'S 
TIME 

<PRINTTYPE FIX .ROMAN-PRINT) ;'hee heel'S 

nx 

<♦ 2 2>S 

IV 

1984S 
MCMLXXX1V 

<PRINITYPE FIX ,PRINT)S 
FIX 

<NEWTYPE GRITCH LIST) ;'a new TYPE of PRIMTYPE LIST'S 
GRIT CM 

<EVALTYPE GRITCM)S 
iTALSE () 

<FVALTYPE GRIICH LIST) devaluated like a LIST'S 
GRITCH 

<EVALTYPE GRITCH)S 
LIST 

'GRITCH (A <♦ 1 2 3) !<SET A 'ABC')) ;'Type In one.'S 
'GRITCH (A 6 !\A !\B !\C) 

<NEWTYPE HARRY VECTOR) ;'a new TYPE of PRIMTYPE VECTOR'S 
HARRY 

<EVALTYPE HARRY #FUNCTION ((X) <1 .X>)> 

;"When a HARRY Is EVALed. return Its first element. "S 
HARRY 

* HARRY [ 1 2 3 4]S 
1 

<NEWTYPE WINNER LIST) ;'a TYPE with funny application's 
WINNER 

<APPLYTYPE W1NNER)S 
'FALSE () 

<APPLYTYPE WINNER <FUNCTION (W 'TUPLE' T) ( ! .V !.T)»S 
WINNER 

<APPLYTYPE WINNER)S 
'FUNCTION ( (W 'TUPLE' T) (!.W t.T)) 

< 'WINNER (A B C) <♦ 1 2) q)S 
(A B C 3 q) 
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The following sequence makes MDL look just like Lisp. iDiis example is understandable only if 
you know Lisp (Moon. 1974); it is included only because it is so beautiful.) 

<EVALTYPE LIST FORM>S 
LIST 

<EVALTYPE ATOM ,LVAL>S 
ATOM 

So now: 

(♦ 1 2)S 
3 

(SET 'A 5)S 
5 

AS 

5 

To complete the job. of course, we would have to do some SETG’s: car is 1, edr is .REST, and 
lambda is .FUNCTION. If you really do this example, you should "undo* it before continuing: 

<EVALTYPE 'ATOM ,EVAL>S 
ATOM 

<EVALTYPE LIST ,EVAL>S 
LIST 


1 

1 
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Chapter 7. Structured Objects 

This chapter discusses structured objects in general and the five basic structured PRIMTYPEs. [We 
defer detailed discussion of the structured PRIMTYPEs TUPLE (section 9.2) and STORAGE (section 
22 . 2 . 2 ).] 


7.1. Manipulation 

The following SUBRs operate uniformly on all structured objects and generate an error if not 
applied to a structured object. Hereafter, structured represents a structured object. 

7.1.1. LENGTH [I] 

< LENGTH structuredy 

evaluates to the number of elements in structured. 

7.1.2. NTH [I] 

<NTH structured fix> 

evaluates to the f/xtli element of structured. An error occurs if fix is less than 1 or greater than 
< LENGTH structuredy . fix is optional. 1 by default 

7.1.9. REST [I] 

<REST structured fixy 

evaluates to structured without its first fix elements, fix is optionaL 1 by default. 

Obscure but important side effect: REST actually returns structured "CHTYPEd" (but not through 
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application of CHTYPE) to its PRIMTYPE . For example. REST of a FORM is a LIST. REST with an 
explicit second argument of 0 has no effect except for this TYPE change. 


7.1.4. PUT [I] 

<PUT structured fix anythmg-legal> 

first makes anything-tegal the f/vth element of structured, then evaluates to structured, anything-legel 
is anything which can legally be an element of structured", often, this is synonymous with “any MDL 
object", but see below. An error occurs if fix is less than 1 or greater than <LENGTH structured >. 
(PUT is actually more general than this - chapter IS.) 


7.1.5. GET 


<GET structured fix > 

evaluates the same as <NTH structured fix>. It is more general than NTH, however (chapter IS), and 
is included here only for symmetry with PUT. 


7.1.6. APPlYing a FIX [I] 

EVAL understands the application of an object of TYPE FIX as a “shorthand* call to NTH or PUT, 
depending on whether it is given one or two arguments, respectively [unless the APPLYTYPE of FIX is 
changed] That is, TVA1 considers the following two to be identical: 

< fix structured > 

<NTH structured fix > 


and these: 

<fix structured object > 

<PUT structured fix object > 

[However, the compiler (Lebling. 1979) cannot generate efficient code front the longer forms unless 
it is sure that fix is a FIX (section 9.10). The two constructs are not identical even to EVAL, if the 
order of evaluation is significant: for example, these two: 

<NTH .X <LENGTH <SET X .Y»> «LENGTH <SET X ,Y» .X> 

are not identical.] 
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7.1.7. SUBSTRUC 

SUBS I R lie ('substructure') facilitates the construction of structures that are composed of sub-parts of 
existing structures. A special case of this would be a 'substring* function. 

<SUBSTRUC from:structured restrfix Amount .fix toxtrudured > 

copies the first jr.iount elements of <REST from rest > into another object and returns the latter. All 
arguments are optional except from, which must be of PRIMTYPE LIST, VECTOR, TUPLE (treated like 
a VECTOR), SIRING, RYTTS, or UVICIOR. rest is 0 by default, and amount is all the elements by 
default, to, if given, receives the copied elements, starting at its beginning; it must be an object 
whose 1 YPE is the PRIMTYPE of from (a VECTOR if from is a TUPLE). If to is not given, a new object is 
returned, of TYPE < PRIMTYPE from> (a VECTOR if from is a TUPLE), which never shares with from. 
The copying is done in one fell swoop, not an element at a time. Note: due to an implementation 
restriction, if from is of PRIMTYPE LIST, it must not share any elements with to. 


7.2. R epresentation of Basi c S t ructures 
7.2.1. LIST [I] 

( element- 1 etcment-2 ... etement-N ) 
represents a LIST of A/ elements. 


7.2.2. VECTOR [I] 

[ clen>cnt-I element -2 ... etement-N ] 

represents a vrCTOR of N elements. (A TUPLE is just like a VECTOR, but it lives on the control stack.] 
7.2.1 UVECTOR [I] 

If clcn>cnt-I element-2 ... element-N !] 

represents a UVICTOR (uniform vector) of N elements. The second I (exclamation-point) is optional 
for input. (A STORAGE is an archaic, kind of UVECTOR that is not garbage-collected.] 



; 


I] 

w 








7.1.7 - 7.2.S 


Structured Objects 


The MDL Programming Language 


55 


7.2.4. STRING [I] 

"characters” 

represents a STRING of ASCII text. A STRING containing the character ■ (double-quote) is 
represented by placing a \ (backslash) before the double-quote inside the STRING. A \ in a STRING 
is represented by two consecutive backslashes. 


7.2.5. BYTES 

in {element- 1 element-2 element-N] 

represents a string of N uniformly-sized bytes of size n bits. 


7.2.6. TEMPLA1E 

{ element- 1 element-2 ... element-N ) 

represents a TEMPLATE of N elements when output, not input - when input, a # and a TYPE must 
precede it. 


7,3. Evaluation of Basic Structures [I] 

This section and the next two describe how EVAL treats the basic structured TYPES [in the absence of 
any modifying EVALTYPE calls (section 6.4.4)). 

EVAL of a STRING [or BYTES or TEMPLATE) is just the original object. 

EVAL acts exactly the same with LISTs, VECTORS, and UVECTORs: it generates a new object with 
elements equal to EVAL of the elements it is given. This is one of the simplest means of 
constructing a structure. However, see section 7.7. 


7.4. Examples [I] 


(1 2 <♦ 3 4>)S 
(1 2 7) 

<SET F00 [5 <- 3> <TYPE "ABC">]>$ 
[5 -3 STRING] 

<2 .F00>$ 
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-3 

<TYPE <3 . FOO»J 
ATOM 

<SET BAR ! [ ( "meoW ) (.FOO)]>S 
! [ ( "meow" ) ([5-3 STRING])!] 

< LENGTH .BAR>S 

2 

<REST <1 <? . BAR >»$ 

[-3 STRING] 

[ <5UBSTRUC <1 <2 .BAR» 0 2 >] S 
t[5 -31] 

< PUT .FOO 1 SNEAKY) ; ‘Watch out for .BAR !*S 

[SNEAKY -3 STRING] 

.BARS 

'[("meow") ([SNEAKY -3 STRING])!] 

<SET FOO <REST <1 <1 .BAR» Z»S 
"ow" 

.BARS 

! [ ( "meow" ) ([SNEAKY -3 STRING])!] 


7,5. General io n of Ba sic Structures 

Since LISTs. VECTORS. UVECTORs, and STRINGS [and BYTESes] are all generated in a fairly uniform 
manner, methods of generating them will be covered together here. [TEMPLATES cannot be generated 
by the interpreter itself; see I eh ling (1979).] 


7.5.1. Direct Representation [I] 

Since EVAL of a LIST, VECTOR, or UVECTOR is a new LIST, VECTOR, or UVECTOR with elements which 
are EVAL of the original elements, simply evaluating a representation of the object you want will 
generate it. (Care must he taken when representing a UVECTOR that all elements have the same 
TYPE.) This method of generation was exclusively used in the examples of section 7.4. Note that 
new STRINGS [and BYTFSes] will not be generated in this manner, since the contents of a STRING are 
not interpreted or copied by CVAL. The same is true of any other TYPE whose TYPEPRIM happens to 
be LIST, VICTOR, or UVECTOR [again, assuming it neither has been EVALTYPEd nor has a built-in 
EVALTYPE, as do f ORM and SEGMENT]. 


7.5.2. QUOTE [I] 

QUOTE is an FSUBR of one argument which returns its argument unevaluated. READ and PRINT 
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understand the character ' (single-quote) as an abbreviation for a call to QUOTE, the way period and 
comma work for tVAL and GVAL. Examples: 

<♦ 1 2>S 
3 

•<♦ 1 2>S 
<♦ 1 2 > 

Any LIST, vrCTOR, or UVECTOR in a program that is constant and need not have its elements 
evaluated should he represented directly and inside a call to QUOTE. This technique prevents the 
structure from being copied each time that portion of the program is executed. Examples hereafter 
will adhere to this dictum. (Note: one should never modify a QUOTEd object. The compiler will one 
day put it in read-only (pure) storage.) 


7.5.3. LIST, VECTOR. UVECTOR, and STRING (the SUBRs) [I] 

Each of the SUBRs LIST, VECTOR, UVECTOR, and STRING takes any number of arguments and 
returns an object of the appropriate TYPE whose elements are EVAL of its arguments. There are 
limitations on what the arguments to UVECTOR and STRING may EVAL to, due to the nature of the 
objects generated. See sections 7.6.5 and 7.6.6. 

LIST, VECTOR, and UVECTOR are generally used only in special cases, since Direct Representation 
usually produces exactly the same effect (in the absence of errors), and the intention is more 
apparent. [Note: if .1 is a LIST, <LIST ! .L> makes a copy of .L whereas (! ,L) doesn't; see section 
7.7.] STRING, on the other hand, produces effects very different from literal STRINGS. 

Examples: 

<LIST 1 <♦ 2 3> ABOS 
(1 5 ABC) 

(1 <♦ 2 3> ABC )S 
(I b ABC) 

<STR IMG "A" <2 "QWERTY <RE5T "ABC> ■hello»>5 
"AWBChcl lo" 

"A <♦ 2 3> ( 5)"S 
"A <♦ 2 3> (5)* 


7.5.4. ILIST, IVECTOR, IUVECTOR, and ISTRING [I] 

Each of the SUBRs ILIST, IVECTOR, IUVECTOR, and ISTRING ("implicit" or "iterated" whatever) 
creates and returns an object of thr obvious TYPE. The format of an application of any of them la 

< /thing numlicr-o(-element$;(ix expression:tny > 
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where l thine j s one of ILIST. IVECTOR. IUVECTOR, or ISTRING. An object of LENGTH number-of- 
etements is generated, whose elements are EVAL of expression. 

expression is optional. When it is not specified, ILIST, IVECTOR, and IUVECTOR return objects 
filled with objects of TYPE LOSE ( PRIMTYPE WORD) as place holders, a TYPE which can be passed 
around and have its TYPE checked, but otherwise is an illegal argument. If expression is not 
specified in ISTRING, you get a STRING made up of *8 characters. 

When expression is supplied as an argument, it is re-EVALuated each time a new element is 
generated. (Actually. EVAL of expression is re-EVALuated. since all of these are SUBRs.) See the last 
example for how this argument may be used. 

[Ry the way. in a construct like CIUVECTOR 9 '.X>, even if the LVAL of X evaluates to itself, so that 
the ' could be omitted without changing the result, the compiler is much happier with the * in 
place.] 

IUVECTOR and IS1R1NG again have limitations on what expression may EVAL to; again, see sections 
7.6.5 and 7.G.G. 

Examples: 

<ILIST 5 OS 
( 66666 ) 

< IVECTOR 2>S 

[*L0SF *000000000000* #L0SE *000000000000*] 

<SET A 0>S 
0 

< IUVECTOR 9 ' <SET A <♦ .A 1»>S 
*[ 123456789 !] 


7.5.5. FORM and I FORM 

Sometimes the need arises to create a TORM without EVALing it or making it the body of a FUNCTION. 
In such cases the MlURs TORM and IFORM (‘implicit form") can be used (or QUOTE can be used). They 
are entirely analogous to 1 1ST and ILIST. Example: 

<DEF INE INC-FORM (A) 

<FORM SET .A <FORM ♦ 1 <F0RM LVAL .A»»S 

INC-FORM 
< INC-FORM FOO>S 
<SET FOO <♦ 1 .F00» 
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7,6. Uni que Properties of Primitive TYPEs 

7.6.1. LIST (the PRIMTYPE) [I] 

An ob ject of PRIM1YPE LIST may be considered as a "pointer chain" (appendix 1). Any MDL object 
may be an element of a PRIMTYPE LIST. It is easy to add and remove elements of a PRIMTYPE 
LIST, but (lie higher N is, the longer it takes to refer to the Nth element. The SUBRs which work 
only on objects of PRIMTYPE LIST are these: 

7.6.1. 1. PUTREST [I] 

<PUTREST head:primtype-list tail:primtype-list > 

changes he.-d so that CREST h ead> is tail (actually CCHTYPE tail LIST», then evaluates to head. Note 
that this actually changes head, it also changes anything having head as an element or a value. For 
example: 


<SE1 now [ <5ET ARF (B W)>]>S 


t (B W) 3 

CPUTREST .ARF • (3 4)>S 
(B 3 4) 

.BOWS 
[ (B 3 4)] 


PUTREST is probably most often used to splice lists together. For example, given that .L is of 
PRIMTYPE LIST, to leave the first m elements of it intact and take out the next n elements of it, 
< PUTREST CREST .L C- m 1» CREST .L C* m n>». Specifically, 

CSET NUMS ( 1 2 3 4 5 6 7 8 9)>S 
( 1 2 3 4 5 6 7 8 9) 

C PU1 REST CREST .NUMS 3> CREST .NUMS 7»S 
(4 8 9) 

.NUMSS 

( 123489 ) 

7.6.I.2. CONS 

CCONS new Hst> 


("construct") adds new to the front of list, without copying ' : st, and returns the resulting LIST. 
References to list are not affected. 

[Evaluating CCONS .E ,LIST> is equivalent to evaluating (.E '.LIST) (section 7.7) but is less 
preferable to the compiler (Lebling, 1979).] 
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7.6.2. “Array" PRIMTYPEs [I] 

VECTORS, UVrCTORs, and STRINGS [and BYTESes and TEMPLATES] may be considered as "arrays" 
(appendix i). It is easy to refer to the Nth element irrespective of how large N is, and it is 
relatively difficult to add and delete elements. The following SUBRs can be used only with an object 
of PRIMTYPE VECTOR, UVECTOR, or STRING [or BYTES or TEMPLATE]. (In this section array represents 
an object of such a PRIMTYPE.) 

7.6.2. 1 . BACK [I] 

<BACK array fix') 

This is the opposite of REST. It evaluates to array, with fix elements put back onto its front end, 
and changed to its PRIMTYPE. fix is optional, 1 by default. If fix is greater than the number of 
elements which have been RESTcd off, an error occurs. Example: 

<SET ZOP <REST • ! [ 1 2 3 4] 3»$ 

![ 4 !] 

<BACK .ZOP 2>S 
![2 3 4!] 

<SET S <REST "Right is might." IS)>S 

« « 

<BACK .S 6>S 
■might." 

7.6-2.2. TOP [I] 

<TOP array > 

"BACKs up all the way” -- that is, evaluates to array, with all the elements which have been RESTed 
off put back onto it. and changed to its PRIMTYPE. Example: 

< TOP .ZOP>S 
![1 2 3 4!] 


7.6.1 “Vector" PRIMTYPEs 
7.6.3. 1. GROW 

<GR0W vu endifix beg.ftx) 

adds/removes elements to/from either or both ends of vu, and returns the entire (TOPped) resultant 
°*>ject. vu can be of PRIMTYPE VECTOR or UVECTOR. end specifies a lower bound for the number of 
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elements to he added to the end of via beg specifies the same for the beginning. A negative fix 
specifies removal of elements. 


The number of elements added to each respective end is end or beg increased to an integral multiple 
of X. where X is 32 for PRIMTYPE VECTOR and 64 for PRIMTYPE UVECTOR (1 produces 32 or 64: -1 
produces 0) The elements added will he LOSEs if vu is of PRIHTYPE VECTOR, and "empty" whatever- 
they-are’s if vv is of PRIMTYPE UVECTOR. An "empty" object of PRIMTYPE WORD contains zero. An 
empty object of any other PRIMTYPE has zero in its "value word’ (appendix 1) and is not safe to 
play with: it should be replaced via PUT. 

Note that, if elements are added to the beginning of vu, previously-existing references to vu will 
have to use TOP or BACK to gel at the added elements. 

Caution: GROW is a very expensive operation; it requires a garbage collection (section 22.4) every 
time it is used. It should he reserved for very special circumstances, such as where the pattern of 
shared elements is terribly important. 

Example: 

<SET A • ! [ 1 ]>S 
?[ 1 !) 

< GROW .A 0 1>J 

![0 00000000000000000000 
0000000000000000000000 
0000000000000000000001 !] 

• AS 
'[ 1 !] 

7.6.3 2. SORT 

This SUBR will sort PRIMTYPEs VECTOR. UVECTOR and TUPLE (section 9.2). It works most 
efficiently if the sort keys are of PRIMTYPE WORD, ATOM or STRING. However, the keys may be of 
any TYPE, and SORT will still work. SORT acts on fixed-length records which consist of one or more 
contiguous elements in the structure being sorted. One element in the record is declared to be the 
sort key. Also, any number of additional structures can be rearranged based on how the main 
structure is sorted. 

<SORT prod si II off s2 12 S3 13 ... s/V IN> 


where: 

pred is either (see chapter 8 for information about predicates): 

(I) TYPE FALSE, in which case the TYPEs of all the sort keys must be the same; they must be of 
PRIMTYPE WORD, STRING or ATOM ; and a radix-exchange sort is used; or 
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(2) something applicable to two sort keys which returns TYPE FALSE if the first is not bigger 
than the second, in which case a shell sort is used. For example ,6? sorts numbers in ascending 
order. , L’ in descending order Note: if your pred is buggy, the SORT may never terminate. 

si .. . s/V are the (PRIMTYPE) VECTORS, UVECTORs or TUPLES being sorted, and si contains the sort 
keys! 

H ... IN are (hr corresponding lengths of sort records (optional, one by default); and 
off is the offset front start of record to sort key (optional, rero by default). 

SORT returns the sorted si as a value. 

Note: the SUBR SORT calls the RSUBR (chapter 19) SORTX; if the RSUBR must be loaded, you may see 
some output from the loader on your terminal. 

Examples: 

<SORT <> <SET A < IUVECTOR 500 '<RANOOM»»J 

»[...!) 

sorts a UVFC10R of random integers. 

<SET V [1 MONEY 2 SHOW 3 READY 4 GO]>$ 

[...] 

<SORT <> .V 2 1>S 

[4 GO 1 MONEY 3 READY 2 SHOW] 

<SORT .L? .V 2>S 

[4 GO 3 RFADY 2 SHOW 1 MONEY] 

.VS 

[4 GO 3 READY 2 SHOW 1 MONEY] 

<SORT <> ![2 l 4 3 6 5 8 7] 1 0 .V>J 
![ 1 2 3 4 5 6 7 8!] 

.Vi 

[GO 4 READY 3 SHOW 2 MONEY 1] 

The first sort was based on the ATOMs’ PNAMEs. considering records to be two elements. The second 
one sorted based on the FIXes. The third interchanged pairs of elements of each of its structured 
arguments. 
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7.6.4. VECTOR (the PRIMTYPE) [I] 

Any MDL object may be an element of a PRIMTYPE VECTOR. A PRIMTYPE VECTOR takes two words 
of storage more than an equivalent PRIMTYPE LIST, but takes it all in a contiguous chunk, whereas 
a PRIMTYPE LIST may be physically spread out in storage (appendix 1). There are no SUBRs or 
FSUBRs which operate only on PRIMTYPE VECTOR. 


7.6.5. UVECTOR (the PRIMTYPE) [I] 

The difference between PRIMTYPEs UVECTOR and VECTOR is that every element of a PRIMTYPE 
UVECTOR must be of the same TYPE. A PRIMTYPE UVECTOR takes approximately half the storage of 
a PRIMTYPE VECTOR or PRIMTYPE LIST and, like a PRIMTYPE VECTOR, takes it in a contiguous chunk 
(appendix I). 

[Note: due to an implementation restriction (appendix 1). PRIMTYPE STRINGS, BYTESes, LOCDs 
(chapter 12). and objects on the control stack (chapter 22) may not be elements of PRIMTYPE 
UVECTORs.] 

The "same TYPE" restriction causes an equivalent restriction to apply to EVAL of the arguments to 
either of the SUBRs UVECTOR or IUVECTOR. Note that attempting to say 

• 1 1 A!] 

will cause READ to produce an error, since you’re attempting to put a FORM and a FIX into the same 
UVECTOR. On the other hand. 

< UVECTOR 1 . A> 

is legal, and will EVAL to the appropriate UVECTOR without error if .A EVALs to a TYPE FIX. 

The following SUBRs work on PRIMTYPE UVECTORs alone. 

7.6.5.I. UTYPE [I] 

<UTYPE primtype-uvedor> 

("uniform type") evaluates to the TYPE of every element in its argument Example: 

<UTYPE ’ ![ A B C]>S 
ATOM 
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7.6.5.2. CHUIYPI. [I] 

<CHUTYPE uv:pnmtype~uvector type > 

("change uniform type") changes the UTYPE of uv to type, simultaneously changing the TYPE of all 
elements of uv. and returns the new. changed, uv. This works only when the PRIMTYPE of the 
elements of uv can remain the same through the whole procedure. (Exception: a uv of UTYPE LOSE 
can be CIIUTYPfd to any t)pe (legal in a UVECTOR of course); the resulting elements are “empty", as 
for GROW.) 

CHUTYPE actually changes uv: hence a]| references to that object will reflect the change. This is 
quite different from CUT YPE . 

Examples: 

<SET LOST < IUVECTOR 2»S 

'[•HOSE *000000000000* HOSE *000000000000*!] 

<UTYPE .LOST >5 
LOSE 

< CHUTYPE .LOST fORM>S 
'(<> <>!] 

.LOST 

![<> <>!] 

< CHUTYPE .LOST LIST>S 

![() <)!] 


7.6.6. STRING (the PRIM1YPE) and CHARACTER [I] 

The best mental image of a PRIMTYPE STRING is a PRIMTYPE UVECTOR of CHARACTERS - where 
CHARACTER is the MDL TYPE for a single ASCII character. The representation of a CHARACTER, by 
the way. is 

! \*ny-ASCll-that ader 

That is. the characters ' \ (exclamation-point backslash) preceding a single ASCII character 
represent the corresponding object of TYPE CHARACTER (PRIMTYPE WORD). (The characters ! * 
(exclamation-point double-quote) preceding a character are also acceptable for inputting a 
CHARACTER, for historical reasons.) 

The SUBR ISTRING will produce an error if you give it an argument that produces a non- 
CHARACTER. STRING can take either CHARACTERS or STRIN6s. 

There are no SURRs which uniquely manipulate PRIMTYPE STRINGS, but some are particularly useful 
in connection with them: 
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7.6.6. 1. ASCII [I] 

<ASCII tis-or-character > 

If its argument is of TYPE FIX, ASCII evaluates to the CHARACTER with the 7-bit ASCII code of its 
argument. Example: <ASCII 65 ) evaluates to ! \A. 

If its argument is of TYPE CHARACTER, ASCII evaluates to the FIXed-point number which is its 
argument's 7-bit ASCII code. Example: <ASCII ! \Z> evaluates to 90. 

[Actually, a F IX can be CIITYPEd to a CHARACTER (or vice versa) directly, but ASCII checks in the 
former case that the FIX is within the permissible range.] 

7.66.2. PARSE [I] 

<PARSF string radixdixf 

PARSE applies to its argument READ'S algorithm for converting ASCII representations to MDL 
objects and returns the first object created. The remainder of string, after the first object 
represented, is ignored, radix (optional, ten by default) is used for converting any FIXes that occur. 
[See also sections 15.7.2 and 17.1.3 for additional arguments.] 

7.6.6.3. LPARSE [I] 

LPARSE ( list parse ) is exactly like PARSE (above), except that it parses the entire string and returns a 
LIST of all objects created. If given an empty STRING or one containing only separators, LPARSE 
returns an empty LIST, whereas PARSE gets an error. 

7.6.6. 4. UNPARSE [I] 

<IINPARSE am radixdix) 

UNPARSE applies to its argument PRINT’S algorithm for converting MDL objects to ASCII 
representations and returns a STRING which contains the CHARACTERS PRINT would have typed out. 
[However, this STRING will not contain any of the gratuitous carriage-returns PRINT adds to 
accommodate a CHANNEL'S finite line-width (section 11.2.8).] radix (optional, ten by default) is 
used for converting any FIXes that occur. 


7.6.7. BYTES 

A ( PR INTYPE ) BYTES is a string of uniformly-sized bytes. The bytes can be any size between 1 and 
36 bits inclusive. A BYTFS is similar in some ways to a UVECTOR of FIXes and in some ways to a 
STRING of non-seven-bit bytes. The elements of a BYTES are always of TYPE FIX. 
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The SlIBRs BYTFS ami IBYTES are similar to STRING and ISTRING, respectively, except that each of 
the former takes a first argument giving the siie of the bytes in the generated BYTES. BYTES take* 
one required argument which is a TIX specifying a byte size and any number of PRIMTYPE WORDs. 
It returns an object of TYPE BY1FS with that byte size containing the objects as elements. These 
objects will he ANDBed with the appropriate mask of 1-bits to fit in the byte size. IBYTES takes two 
required T IXes and one optional argument. It uses the first FIX to specify the byte size and the 
second to specify the number of elements. The third argument is repeatedly evaluated to generate 
FIXes that become elements of the BYTES (if it is omitted, bytes filled with zeros are generated). The 
analog to UTYPf is BYIE-SIZE. Examples: 

<BYTES 3 <♦ 2 ?> 9 -1>J 
*3 (4 1 7) 

<SET A 0>J 
0 

< IBYTES 3 9 '<SET A <♦ .A 1»>S 
A3(l?34i»6701) 

< IBYTES 3 4>S 
#3 (0 0 0 0) 

<BY1E-SIZE <BYTES 1»S 
1 


7.6.8. TEMPLATE 

A TEMPI ATC is similar to a PL/I "structure" of one level: the elements are packed together and 
reduced in size to save storage space, while an auxiliary internal data structure describes the 
packing format and the elements' real TYPEs (appendix I). The interpreter itself is not able to create 
objects of PRIM1YPE TEMPLATE (Lebling. 1979): however, it can apply the standard built-in 
Subroutines to them, with the same effects as with other "arrays". 


7.7. SEGMENTS [II 

Objects of TYPE SI GMI NT (whose TYPEPRiM is LIST) look very much like FORMs. SEGMENTS, however, 
undergo a non-standard evaluation designed to ease the construction of structured objects from 
elements of other structured objects. 


7.7.1. Representation [|] 

Tire representation of an object of TYPE SEGMENT is the following: 

!< tunc ,*rg-2 ... m$-N !> 
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where t lie second ! (exclamation-point) is optional, and func and arg-1 through arg-N are any legal 
constituents of a FORM (that is, anything). The pointed brackets can be implicit, as in the period 
and comma notation for LVAL and GVAL. 

All of the following are SEGMENTS: 

! <3 . F 00 > !.F00 ! ,F00 


7.7.2. Evaluation [I] 

A SEGMFNT is evaluated in exactly the same manner as a FORM, with the following three exceptions: 

(1) It had better he done inside an EVAL of a structure; otherwise an error occurs. (See special 

case of FORMs in section 7.7.5.) 

(2) It had better EVAL to a structured object; otherwise an error occurs. 

(3) What actually gets inserted into the structure being built are the elements of the structure 

returned by the FORM-like evaluation. 

7.7.3. Examples [I] 

<SET ZOP ' ![2 3 4 ]>l 
! [ 2 3 4! ] 

<SET ARF (B 3 4)>$ 

(B 3 4) 

(.ARF !.Z0P)S 
((B 34)234) 

• [ ! .ZOP !<REST . ARF > ! ]S 
([ 23434 !] 

<SET S "STRUNG. ">S 
•STRUNG." 

(!S)S 

(!\S !\T !\R !\U !\N !\G !\.) 

<SET NIL ()>S 

() 

[! .NIL]S 

[] 
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7.7.4. Note on Efficiency [I] 

Most of the cases in which it is possible to use SEGMENTS require EVAL to generate an entire new 
object. Naturally, this uses up both storage and time. However, there is one case which it is 
possible to handle without copying, and EVAL uses it. When the structure being built is a PRIMTYPE 
LIST, and the segment value of a PRIMTYPE LIST is the last (rightmost) element being concatenated, 
that last PRIMTYPE LIST is not copied. This case is similar to CONS and is the principle reason why 
PRIMTYPE LISTs have their structures more easily varied than PRIMTYPE VECTOR or UVECTOR. 

Examples: 

. ARFS 
(B 3 4) 

This does not copy ARF : 

(1 2 ! .ARE )* 

(1 2634 ) 

Time doc 


(1 

! . 

ARF 

2) 

;"not 

last element"* 

(1 

B 

3 4 

2) 



[1 

2 

! .ART ] 

;"not 

PRIMTYPE LIST"* 

[1 

2 

R 3 

4] 



(1 

2 

\ .ARF KREST 

'(!)>) ;■ still not last element** 

(1 

2 

B 3 

4) 




Note the following, which occurs because copying does not^take place: 

<5ET 00G (A ! . ARF )>* 

(A B 3 4) 

< PUT .ARF 1 "BOWOW" >* 

("BOWOW" 3 4) 

.DOGS 

(A "BOWOW" 3 4) 

<Pl)T .DOG 3 "WOOF">* 

(A "BOWOW" "WOOF" 4) 

. ART $ 

(“BOWOW" "WOOF" 4) 


Since ARF was not copied, it was literally part of DOG. Hence, when an element of ARF was changed, 
DOG seas changed Similarly, when an element of DOG which ARF shared was changed. ARF was 
changed too. 
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7.7.5. SEGMENI.s in i ORMs [I] 

When a SEGMENT appears as an element of a FORM, the effect is approximately the same as if the 
elements of EVAl of the SEGMENT were in the FORM. Example: 

<SE T A ' ! [ 1 2 3 4 ]>i 
! [ 1 2 3 4 ! ] 

<♦ ' .A 5>J 
15 

Note: the elements of the structure segment-evaluated in a FORM are ntrt re-evaluated if the thing 
being applied is a SlIITR. Thus if .A were (1 Z <♦ 3 4> 5), the above example would produce an 
error: you can't arid up FORMs. 

You could perform the same summation of 5 and the elements of A by using 
<EVAL <CH1 YPE (♦ ! .A 5) F0RM» 

(Note that EVAL must be explicitly called as a SUBR; if it were not so called, you would just get the 
FORM <«• 1 2 3 4 5> - not its "value".) However, the latter is more expensive both in time and in 
storage: when you use the SEGMENT direct ly in the FORM, a new FORM is, in fact, not generated as it is 
in the latter case. (The elements are put on "the control stack" with the other arguments.) 


7.8. Self-r e feren cing Struct u res 

It is possible for a structured object to "contain" itself, cither as a subset or as an element, as an 
element of a structured element, etc. Such an object cannot be PRINTed, because recursion begins 
and never terminates. Warning: if you try the examples in this section with a live MDL, be sure 
you know bow to use A S (section 1.2) to save PRINT from endless agony. (Certain constructs with 
ATOMs can give PRINT similar trouble: see chapters 12 and 15.) 

7.8.1. Self-subset 

<PU1REST hcad:pnmt ypc-list tahprimt ype-ltst) 

If head is a subset of tail. that is, if <REST tail (ix> is the same object as <REST head 0> for some fix, 
then both head and tail will he "circular" (and thus self-referencing) after the PUTREST. Example: 

<SET WALTZ (1 2 3)>i 
(l 2 3) 

< PUTREST <REST .WALTZ 2> .WALTZ>1 
(3 1 2 3 1 2 3 1 2 3 1 2 3 ... 
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7.8.2. Self-element 

<rur si structured fix s2:structured) 

If si is i hr same object as s2. then it will "contain* itself (and thus be self-referencing) after the 
PUT. Examples: 

<SE T S <1 1ST 1 2 3» ;"or VECTOR'S 

(1 2 3) 

< PUT .S 3 ,S>S 
(1 2 (1 2 (1 2 (1 2 ... 

<SET U ![ ![ ]]>$ 

?[•[!]*] 

< PUT .U 1 .U>S 

![»[![![![![... 

Test your reaction time or yonr terminal's bracket-maker. Amaze your friends. 









7.8.2 


Structured Objects 


The MDL Programming Language 


71 


Chapter 8. Truth 


8.1. Truth Values [I] 

MDL represents "false" with an object of a particular TYPE: TYPE FALSE (unsurprisingly). TYPE 
FALSE is structured: its PRIMTYPE is LIST. Thus, you can give reasons or excuses by making them 
elements of a FALSE. (Again, EVALing a FALSE neither copies it nor EVALs its elements, so it is not 
necessary to QUOTE a FALSE appearing in a program.) Objects of TYPE FALSE are represented in "# 
notation": 


#FALSE list-of-its-elemenls 
The empty FORM evaluates to the empty FALSE: 

<>$ 

#FAI.SE ( ) 

Anything which is not FALSE, is, reasonably enough, true. In this document the "data type" false- 
or-any in metasyntactic variables means that the only significant attribute of the object in that 
context is whether its TYPE is FALSE or not. 


8.2. Predicates [1] 

There are numerous MDL F/SLIBRs which can return a FALSE or a true. See appendix 2 to find 
them all. Most return cither #FALSE () or the ATOM with PNAME T. (The latter is for historical 
reasons, namely Lisp (Moon. 1974).) Some predicates which are meaningful now are described next. 


8.2.1. Arithmetic [I] 

<0? fix-or- float> 

evaluates to T only if its argument is identically equal to 0 or 0.0. 
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■! 

<1? fix-or -floaty 

evaluates to T only if its argument is identically equal to 1 or 1.0. 

<G? n:fix-or-float m:fix-or-float > 

evaluates to T only if n is algebraically greater than w. L=? is the Boolean complement of G? ; that 
is. it is T only if n is not algebraically greater than m. 

<L? n:fix-or-/loat m-.fix-or-floaO 

evaluates to T only if n is algebraically less than m. G=? is the Boolean complement of L?. 


8.2.2. Equality and Membership [I] 

<”? el:any e2:any> 

evaluates to T only if el is the same ob ject as e2 (appendix 1). Two objects that look the same 
when PRINTcd may not be ==?. Two FIXcs of the same "value" are "the same object"; so are two 
FLOATs of exactly the same "value". Empty objects of PRIMTYPE LIST (and no other structured 
PRIMTYPE) are ==? if their TYPEs are the same. Example: 

< = =? <SET X "RANDOM STRING") <TOP <REST .X 6»>S 
T 

<==? .X "RANDOM STRING" >J 
#FALSE () 

N=a? is the Boolean complement of = = ?. 

< = ? e I .any e2:any> 

evaluates to T if el and e2 have the same TYPE and are structurally equal -- that is, they "look the 
same", their printed representations are the same. =? is much slower than ==?. e? should be used 
only when its characteristics are necessary: they are not in any comparisons of unstructured objects. 
==? and =? always return the same value for Fixes, FLOATs, ATOMs, etc. (Mnemonically, »=? tests for 
"more equality" than =?; in fact, it tests for actual physical identity.) 

Example, illustrating non-copying of a SEGMENT in Direct Representation of a LIST: 

<SET A '(l 2 3)>S 
(1 2 3) 

< = = ? .A ( • . A)>S 
T 

< = =? .A <SE T B < L I S T ! .A»>S 
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*FALSE () 

<=? .A . B>$ 

T 

N=? is the Boolran complement of =?. 

<MEMBER objcct.any s tructured> 

runs down structured from first to last element, comparing each element of structured with object. 
If it finds an element of structured which is =? to object, it returns <REST structured /> (which is of 
TYPE < PRIMTYPE structurcd», where the 0«l)th element of structured is =? to object. That is, the 
first element of what it returns is the first clement of structured that is =? to object. 

If no element of structured is =? to object. MEMBER returns #FALSE ( ) . 

The search is more efficient if structured is of PRIMTYPE VECTOR (or UVECTOR, if possible) than if it 
is of PRIMTYPF LIST. As usual, if structured is constant, it should be QUOTEd. 

If object and structured are of PRIMTYPE STRING [or BYTES], MEMBER does a substring search. 
Example: 


<MEMBER "PART" "SUM OF PARTS">S 
"PARTS" 

<MEMQ objrct :any structured > ("member quick") is exactly the same as MEMBER, except that the 
comparison test is ==?. 

<STRCOMP si s2> 

("string comparison") can he given either two STRINGS or two ATOMs as arguments. In the latter case 
the PNAMCs arc used. It actually isn’t a predicate, since it can return three possible values: 0 if si is 
= ? to s2. 1 if si sorts alphabetically after s2i and -1 if si sorts alphabetically before s2. 
"Alphabetically" means, in this case, according to the numeric order of ASCII, with the standard 
alphabetizing rules. 

[A predicate suitable for an ascending SORT (which see) is <G? <STRCOMP .ARG1 .ARG2> 0>.] 


8.2.3. Boolean Operators [I] 

< NOT e:f at sc -or -crny'> 

evaluates to T only if e evaluates to a FALSE, and to IFALSE () otherwise. 
<AND el c2 ... eN> 


8.2.2 - 8.2.3 


Truth 


74 


The MDL Programming Language 


AND is an rSllllR. It evaluates its arguments from first to last as they appear in the FORM. As soon 
as one of them evaluates to a I ALSE, it returns that FALSE, ignoring any remaining arguments. If 
none of them evaluate to FALSE, it returns EVAL of its last argument. <AND> returns T. AND? is the 
SUBR equivalent to AND, that is. all its arguments are evaluated before any of them is tested. 

COR cl c2 ... cN> 

OR is an FSUBR . It evaluates its arguments from first to last as they appear in the FORM. As soon 
as one of them evaluates to a non-FAlSE, OR returns that non-FALSE value, ignoring any remaining 
arguments. If this never occurs, it returns the last FALSE it saw. <0R> returns #FALSE (). OR? is 
the 5UUR equivalent to OR. 


8.2.4. Object Properties [I] 

CTYPE? t\pe-l ... type-N> 

evaluates to t\pc-i only if <- = ? typc-i CTYPE *ny>> is true. It is faster and gives more information 
than ORing tests for each TYPE . If the test fails for all type-i s. TYPE? returns #FALSE ( ) . 

CAPrLICARLE? e> 

evaluates to l only if e is of a TYPE that can legally be applied to arguments in a FORM, that is. be 
(EVAL of) the first element of a FORM being evaluated (appendix 3). 

C MONAD? <?> 

evaluates to #FAISF ( ) only if NTH and REST (with non-xrro second argument) can be performed on 
its argument without error. An unstructured or empty structured object will cause MONAD? to return 


CSTRUCTIIRI 0? e> 

evaluates to T only if c is a structured object. It is not the inverse of MONAD?, since each returns T 
if its argument is an empty structure. 

CEMPTY7 structured > 

evaluates to T only if its argument, which must be a structured object, has no elements. 

C LENGTH? structured fis > 

evaluates to UINGIII stru<turcd> only if that is less than or equal to fix; otherwise, it evaluates to 
#FALSF ( ) . M Demonically, you ran think of the first two letters of LENGTH? as signifying the "less 
than or equal to" sense of the test. 
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This SUBR was invented to use on lists, because MDL can determine their lengths only by stepping 
along the list, counting the elements. If a program needs to know only how the length compares 
with a given number, LENGTH? will tell without necessarily stepping all the way to the end of the 
list, in contrast to LENGTH. 

[If structured is a circular PRIMTYPE LIST, LENGTH? will return a value, whereas LENGTH will execute 
forever. To see if you can do <REST structured <♦ 1 fix» without error, do the test <N0T <LENGTH? 
structured fix».] 


8.3. COND [11 

The MDL Subroutine which is most used for varying evaluation depending on a truth value is the 
FSU8R COND ("conditional"). A call to COND has this format: 

<COND clause- Hist ... clause-NJist> 

where N is at least one. 

COND always returns the result of the last evaluation it performs. The following rules determine the 
order of evaluations performed. 

(1) Evaluate the first element of each clause (from first to last) until either a non*FALSE object 
results or the clauses are exhausted. 

(2) If a non-FALSE object is found in (1), immediately evaluate the remaining elements (if any) 
of that clause and ignore any remaining clauses. 

In other words. COND goes walking down its clauses, EVALing the first element of each clause, looking 
for a non-FALSE result. As soon as it finds a non-FALSE, it forgets about all the other clauses and 
evaluates, in order, the other elements of the current clause and returns the last thing it evaluates. 
If it can't find a non-FALSE, it returns the last FALSE it saw. 


8.3.1. Examples [I] 

<SET F *( I)>S 
( 1 ) 

<COND (<EMPTY? .F> ENP) (<17 < LENGTH ,F» ONE)>S 
ONE 

<SET F ()>S 

<> 

<COND (<EMPTY? .F> EMP) (<1? <LENGTH .F» 0NE)>S 
EMP 
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<SET F '(1 2 3)>S 
(I 2 3) 

<COND (<EMPTY? .F> EHP) «1? < LENGTH .F» ONE)>S 
#FALSE () 

<CONO «LENGTH7 .F 2> SHALL) (8IG)>S 
BIG 

< DEFINE FACT (N) ;"the standard recursive factorial" 

<COND (<0? .N> I) 

(ELSE <« .N <FACT <- .N 1»>)»S 

FACT 

<FACT 5>S 
120 


8.4. Shortcuts with Conditionals 


8.4.1. AND and OR as Short CONDs 



Since AND and OR are FSUBRs, they can be used as miniature CONDs. A construct of the form 
<AND pre-conditions action(s)> 


<0R pre-exclusions action(s)'} 

will allow action(s) to be evaluated only if all the pre-conditions are true or only if all the pre- 
exclusions are false. respectively. By nesting and using both AND and OR, fairly powerful constructs 
can be made. Of course, if action! s) are more than one thing, you must be careful that none but the 
last returns false or true, respectively. Watch out especially for TERPRI (chapter 11). Examples: 

<AND < ASSIGNED? FLAG) .FLAG <FCN ,ARG» 

applies FCN only if someone else has SET FLAG to true. (ASSIGNED? is true if its argument ATOM has 
an LVAL.) No error can occur in the testing of FLAG because of the order of evaluation. 

<AND <SET C <0PEN "READ" "A FILE")) <L0AD .C> <CL0SE ,C» 

effectively FLOADs the file (chapter II) without the possibility of getting an error if the file cannot 
be opened. 
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8.4.2. Embedded llncoudilionals 


One of t lie disadvantages of COND is that there is no straightforward way to do things 
unconditionally in between tests. One way around this problem is to insert a dummy clause that 
never succeeds, because its only LIST element is an AND that returns a FALSE for the test. Example: 

<COND ( <0 ? .N> <F0 .N>) 

(<1? . N> <F 1 ,N>) 

(<AND <SET N (« 2 <FIX </ .N 2»» 

; "Round .N down to even number." 

<») 

(<LENGTH? .VEC .N> '[]) 

(T (REST .VEC <■*• I .N»)> 

A variation is to make the last AND argument into the test for the COND clause. (That is, the third 
and fourth clauses in the above example can be combined.) Of course, you must be careful that no 
other AND argument evaluates to a FALSE; most Subroutines do not return a FALSE without a very 
good reason for it. (A notable exception is TERPRI (which see).) Even safer is to use PROG (section 
10.1) instead of AND . 

Another variation is to increase the nesting with a new COND after the unconditional part. At least 
this method does not make the code appear to a human reader as though it does something other 
than what it really does. The above example could be done this way: 

(COND ((0? .N> (F0 .N>) 

((1? .N> (FI .N>) 

(T 

(SET N (* 2 (FIX (/ .N 2»» 

(COND ((LENGTH? .VEC .N> '[]) 

(T (REST .VEC <♦ 1 ,N»)>)> 
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Chapter 9. Funotions 

Tl» is chapter could he named "fun and games with argument LISTs". Its purpose is to explain the 
more complicated things which can be done with FUNCTIONS, and this involves, basically, explaining 
all the various tol.ens which can appear in the argument LIST of a FUNCTION. Topics are covered 
in what is approximately an order of increasing complexity. This order has little to do with the 
order in which tol.ens can actually appear in an argument LIST, so what an argument LIST "looks 
like" overall gets rather lost in the shuffle. To alleviate this problem, section 9.9 is a summary of 
everything that can go into an argument LIST, in the correct order. If you find yourself getting 
lost, please refer to that summary. 


9.1. "OPTIONAL" [IJ 

MDL provides very convenient means for allowing optional arguments. The STRING "OPTIONAL - 
(or "OPT" - they’re totally equivalent) in the argument LIST allows the specification of optional 
arguments with values to he assigned by default. The syntax of the "OPTIONAL" part of the 
argument LISI is as follows: 

"OPTIONAL" *1 1 *1-2 ... *I-N 

First, there is the SIRING "OPTIONAL". Then there is any number of either ATOMs or two-element 
LISTs. intermixed, one per optional argument. The first element of each two-element LIST must be 
an ATOM; (his is the dummy variable. The second clement is an arbitrary MDL expression. If there 
are required arguments, they must come before the "OPTIONAL". 

When EVAL is binding the variables of a FUNCTION and sees "OPTIONAL", the following happens: 

If an explicit argument was given in the position of an optional one, the explicit argument is 
bound to the corresponding dummy ATOM. 

If there is no explicit argument and the ATOM stands alone, that is, it is not the first element of 
a two-element I IS1 , that ATOM becomes "bound", but no local value is assigned to it [see below). 
A local value can be assigned to it by using SET. 
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If there is no explicit argument and the ATOM is the first element of a two-element LIST, the 
MDL expression in the LIST with the ATOM is evaluated and bound to the ATOM. 

[Until an ATOM is assigned, any attempt to reference its LVAL will produce an error. The predicate 
SUBRs BOUND? and ASSIGNLD? can be used to check for such situations. BOUND? returns T if its 
argument is currently hound via an argument LIST or has ever been SET while not bound via an 
argument LIST . The latter kind of binding is called "top-level binding", because it is done outside 
all active arginuent-LIST binding. ASSIGNED? will return #FALSE () if its argument is either 
unassigned or unbound. By the way. there are two predicates for global values similar to BOUND? 
and ASSIGNED?, namely GBOUND? and GASSIGNEO?. Each returns T only if its argument, which (as 
in BOUND? and ASSIGNED?) must be an ATOM, has a global value "slot" (chapter 22) or a global value, 
respectively.] 

Example: 


<DEF INE INC 1 (A "OPTIONAL" (N 1)) <SET .A <♦ ..A .N>»S 
INC 1 

<SET B 0>S 
0 

< INC 1 B>S 
1 

< INC 1 B 5>S 
6 

Here we defined another (not quite working) increment FUNCTION. It now takes an optional 
argument specifying how much to increment the ATOM it is given. If not given, the increment is 1. 
Now. 1 is a pretty simple MDL expression; there is no reason why the optional argument cannot be 
complicated — for example, a call to a FUNCTION which reads a file on an I/O device. 


9.2. TUPLES 


9.2.1. "TUPLE" and TUPLE (the TYPE) [I] 

There are also times when you want to be able to have an arbitrary number of arguments. You can 
always do this by defining the FUNCTION as having a structure as its argument, with the arbitrary 
number of arguments as elements of the structure. This can, however, lead to inelegant-looking 
FORMs and extra garbage to be collected. The STRING "TUPLE" appearing in the argument LIST 
allows you to avoid that. It must follow explicit and optional dummy arguments (if there are any 
of either) and must be followed by an ATOM. 

The effect of "TUPLE" appearing in an argument LIST is the following: any arguments left in the 
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FORM, after satisfying explicit and optional arguments, are EVALed and made sequential elements of 
an object of TYPL and PRIMTYPE TUPLE. The TUPLE is then bound to the ATOM following "TUPLE" 
in the argument LIST. If there were no arguments left by the time the "TUPLE" was reached, an 
empty TUPLE is bound to the ATOM. 

An object of TYI’F TUPLE is exactly the same as a VECTOR except that a TUPLE is not held in 
garbage-collected storage. It is instead held with ATOM bindings in a control stack. This does not 
affect manipulation of the TUPLE within the function generating it or any function called within 
that one: it can be treated just like a VECTOR. Note, however, that a TUPLE ceases to exist when the 
function which generated it returns. Returning a TUPLE as a value is a good way to generate an 
error. (A copy of a TUPLE can easily be generated by segment-evaluating the TUPLE into something; 
that copy can be returned.) The predicate LEGAL? returns IFALSE () if it is given a TUPLE 
generated by an APPLICABLE object which has already returned, and T if it is given a TUPLE which is 
still "good". 

Example: 


<DFF JNI NIIIARG (N "TUPLE" T) 

;"Gct all but first argument Into T." 

<C0ND (<==? 1 .N> 1) 

;"If N is 1, return 1st arg, l.e., .N, 
i.e., 1. Note that <1? .N> would be 
true even if .N were 1.0." 

(<L? <LENGTH .T> <SET N <- .N 1>» 

IFALSE ("DUMMY")) 

;"Chcck to see if there is an Nth arg, 
and make N a good index into T while 
you’re at it. 

If there isn't an Nth arg, complain." 

(ELSE <NTH .T .N>)>> 

NTHARG, above, takes any number of arguments. Its first argument must be of TYPE FIX. It 
returns EVAI of its Nth argument, if it has an Nth argument. If it doesn't, it returns IFALSE 
("DUMMY"). (The Fl.SF is not absolutely necessary in the last clause. If the Nth argument is a 
FALSE, the CONI) will return that FALSE.) Exercise for the reader: NTHARG will generate an error if 
its first argument is not FIX. Where and why? (How about <NTHARG 1.5 2 3> ?) Fix it. 


9 2 2 tUPLE (the SUBR) and I1UPLE 

These sn n Rs arr the same as VECTOR and IVECTOR, except that they build TUPLES (that is, vectors on 
•t. i "wir'd si.it kl They can be used only at top level in an "OPTIONAL" list or "AUX" list (see 
.• Ih e clear advantage of 1UPLE and ITUPLE ("implicit tuple") is in storage-management 

• • I n y produce no garbage, since they are flushed automatically upon function return. 
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Examples: 

<DEF INE F (A B "AUX" (C <ITUPLE 10 3>)) ...> 

creates a 10-element TUPLE and SETs C to it. 

<DEF INE H ("OPTIONAL" (A <ITUPLE 10 *<I») 

"AUX" (B <TUPLE ! .A l 2 3>) ) 

. . .> 

These are valid uses of TUPLE and ITUPLE. However, the following is not a valid use of TUPLE, 
because it is not called at top level of the "AUX": 

< DEFINE NO (A B "AUX" (C <REST <TUPLE !.A»)) ...> 

However, the desired effect could be achieved by 

<0EF INF OK (A B "AUX" (D <TUPLE ! .A>) (C <REST .D>)) ...> 


9.3. "AUX" [11 

"AUX" (or "EXTRA" — they're totally equivalent) are STRINGS which, placed in an argument LIST, 
serve to dynamically allocate temporary variables for the use of a Function. 

"AUX" must appear in the argument LIST after any information about explicit arguments. It is 
followed by ATOMs or two-element LISTs as if it were "OPTIONAL". ATOMs in the two-element LISTs 
are bound to EVAl of the second element in the LIST. Atoms not in such LISTs are initially 
unassign ed: they are explicitly given "no" LVAL. 

All binding specified in an argument LIST is done sequentially from first to last, so initialization 
expressions for "AUX" (or "OPTIONAL") can refer to objects which have just been bound. For 
example, this works: 

< DEFINE AUXEX ("TUPLE" T 

"AUX" (A <LENGTH .T>) (8 <« 2 .A>)) 

![.A ,B]>S 

AUXEX 

< AUXEX 1 2 "FOO">S 
![3 6!] 
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9.4. QtlOT Id ar gum ents 

If an A I Oil in an argument LIST which is to be bound to a required or optional argument is 
surrounded by a call to QUOTE, t hat ATOM is bound to the unevaluated argument. Example: 

<I)tf INI 02 (A ' B ) ( .A ,B))S 
02 

<02 <■*■ 1 2> <♦ 1 2»S 
(3 <♦ 1 ?>) 

It is not often appropriate for a function to take its arguments unevaluated, because such a practice 
makes it less modular and harder to maintain: it and the programs that call it tend to need to know 
more about each oilier, and a change in its argument structure would tend to require more changes 
in the programs that call it. And. since few functions, in practice, do take unevaluated arguments, 
users tend to assume that no functions do (except FSUBRs of course), and confusion inevitably 
results. 


9.5. "ARGS" 

The indicator "ARCS" can appear in an argument LIST with precisely the same syntax as "TUPLE". 
Hosvever. "ARGS" causes the ATOM following it to be bound to a LIST of the remaining unevaluated 
arguments. 

"ARGS" does not cause any copying to take place. It simply gives you 


<REST application:! or m fix > 

with an appropriate fix. The TYPE change to LIST is a result of the REST. Since the LIST shares 
all its elements with the original FORM, PUTs into the LIST will change the calling program, 
however dangernus that may be. 

Examples: 

<PEF INE 01 T (N "ARGS" L) <.N ,L»S 
OH 

<01 T 2 <♦ 3 4> <LENGTH ,QALL> F00>S 
< LE NG T II .QALL) 

<nfFINr FUNCTl ("ARGS" ARGL-ANO-BOOY) 

<CH1 YPE .ARGL-AND-B0DY FUNCTION))* 

FlINCTl 

<FUNCT1 (A B) <♦ .A ,B))S 
FUNCTION ((A B) <♦ .A .B>) 
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The last example is a perfectly valid equivalent of the FSUBR FUNCTION. 


9,6. "CA U" 

The indicator "CALL" is an ultimate "ARGS". If it appears in an argument LIST, it must be 
followed by an ATOM and must be the only thing used to gather arguments. "CALL" causes the ATOM 
which follows it to become bound to the actual FORM that is being evaluated •• that is, you get the 
"function call" itself. Since "CALL" binds to the FORM itself, and not a copy, PUTs into that FORM will 
change the calling code. 

"CALL" exists as a Catch-22 for argument manipulation. If you can’t do it with "CALL", it can’t be 
done. 


9.7. EVA L and "B1NP" 

Obtaining uuevaluated arguments, for example, via QUOTE and "ARGS", very often implies that you 
wish to evaluate them at some point. You can do this by explicitly calling EVAL, which is a SUBR. 
Example: 

<SET F '<♦ 1 2»S 
<+ I 2> 

<EVAL .F>$ 

3 

EVAL can take a second argument, of TYPE ENVIRONMENT (or others, see section 20.8). An 
ENVIRONMENT consists basically of a state of ATOM bindings; it is the "world" mentioned in chapter 5. 
Nosv. since binding changes the ENVIRONMENT, if you wish to use EVAL within a FUNCTION, you 
probably want to get hold of the environment which existed before that FUNCTION'S binding took 
place. The indicator "ITIND", which must, if it is used, be the first thing in an argument LIST, 
provides this information. It binds the ATOM immediately following it to the ENVIRONMENT existing 
"at call time" - that is. just before any binding is done for its FUNCTION. Example: 

<SE1 A 0>$ 

0 

<DEF INE WRONG ( *B "AUX" (A 1)) <EVAL .B»S 
WRONG 

< WRONG . A>S 
1 

<DEFINE RIGHT ("BIND" E 'B "AUX" (A 1)) <EVAL .B ,E»S 
RIGHT 
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CKIGHT . A>$ 
0 


9.7.1. Local Values versus F NVlRONMFNTs 

SET. LVAl . VAlUl . BOUND?. ASSIGNED?, and UNASSIGN all take a final optional argument which 
lias not previously been mentioned: an ENVIRONMENT (or other TYPES, see section 20.8). If this 
argument is given, the SET or LVAL is done in the ENVIRONMENT specified. LVAL cannot be 
abbreviated by . (period) if it is given an explicit second argument. 

This feature is just what is needed to cure the INC bug mentioned in chapter 5. A "correct" INC can 
be defined as follows: 

<DEE INF INC ("BIND" OUTER ATM) 

<SFT .AIM <♦ 1 <LVAL .ATM .0UTER>> ,OUTER» 


9.8. AC 1 1 VA I ION, "NAHF " , "A CT", AG AIN , and RETURN [I] 

EVALuatiou of a FUNCTION, after the argument LIST has been taken care of. normally consists of 
EVAluating each of the ob jects in the body in the order given, and returning the value of the last 
thing FVAIed. If you want to vary this sequence, you need to know, at least, where the FUNCTION 
begins. Actually, I VAl normally hasn’t the foggiest idea of where its current FUNCTION began. 
"VVhere'd 1 statt" information is Imndled up with a TYPE called ACTIVATION. In "normal" FUNCTION 
EVALuatiou. ACTIVATIONS are not generated; one can be generated, and bound to an ATOM, in either 
of the two following ways: 

(1) Put an A10M immediately before the argument LIST. The ACTIVATION of the Function will 
be bound to that A10M . 

(2) As the last thing in the argument LIST, insert either of the STRINGS "NAME" or "ACT" and 
follow it with an ATOM. The ATOM will be bound to the ACTIVATION of the Function. 

In this document "Function” (capitalized) will designate anything that can generate an ACTIVATION; 
besides TYPE TUNC I ION, this class includes the FSUBRs PROG, BIND, and REPEAT, yet to be 
discussed. 

Each ACT I VA I ION icfcrs explicitly to a particular evaluation of a Function. For example, if a 
recursive FUNCTION generates an AC 1 1 VA 1 ION , a new ACTIVATION referring explicitly to each 
recursion step is generated on every recursion. 

Like TUPl Is, AC 1 1 VA 1 1ONs are held in a control stack. Unlike TUPLES, there is no way to get a copy 
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of an ACTIVATION which can usefully be returned as a value. (This is a consequence of the fact that 
ACTIVATIONS refer to evaluations; when the evaluation is finished, the ACTIVATION no longer exists.) 
ACTIVATIONS can be tested, like TUPLES, by LEGAL? for legality. They are used by the SUBRs AGAIN 
and RETURN. 

AGAIN can take one argument: an ACTIVATION. It means ‘start doing this again*, where "this* is 
specified by the ACTIVATION. Specifically. AGAIN causes EVAL to return to where it started working 
on the body of the Function in the evaluation specified by the ACTIVATION. The evaluation is not 
redone completely: in particular, no re-binding (of arguments, "AUX" variables, etc.) is done. 

RETURN can take two arguments: an arbitrary expression and an ACTIVATION, in that order. It 
causes the Function evaluation whose ACTIVATION it is given to terminate and return EVAL of 
RETURN'S first argument. That is, RETURN means *quit doing this and return that", where "this" is the 
ACTIVATION •• its second argument -> and "that" is the expression - its first argument. Example: 

<DEF INE MY+ ("TUPLE" T "AUX" (M 0) "NAME" NM) 

<COND (<EMPTY? .T> < RETURN .M .NM>)> 

<SET M <♦ .M <1 .T»> 

<SET T <REST .T» 

< AGAIN .NN»S 

HY+ 

<HY* 1 3 < LENGTH "FOO"»S 
7 

<NY«->$ 

0 

Note: suppose an ACTIVATION of one Function (call it FI) is passed to another Function (call it F2) - 
for example, via an application of F2 within FI with FI’s ACTIVATION as an argument. If F2 
RETURNS to FI’s ACTIVATION, F2 and FI terminate immediately, and F_1 returns the RETURN’S first 
argument. This technique is suitable for error exits. AGAIN can clearly pull a similar trick. In the 
following example. FI computes the sum of F2 applied to each of its arguments; F2 computes the 
product of the elements of its structured argument, but it aborts if it finds an element that is not a 
number. 


<0EFINE FI ACT ("TUPLE" T "AUX" (T1 .T)) 
<COND (<N0T <EMPTY7 .Tl» 

<PUT ,T1 1 <F2 <1 ,T1> .ACT» 
<SET T1 <REST .Tl» 

< AGAIN ,ACT>) 

(ELSE <♦ !.T>)»S 
FI 


1 



I 
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< DEFINE F 2 (S A "AUX" (SI .S)) 

< RE PEAT HY-ACT ((PRO 1)) 

<COND (<NOT <EHPTY? .Sl» 

<COND (<NOT <TYPE? <1 .Sl> FIX FLOAT» 

< RE TURN IFALSE ("NON -NUMBER*) ,A>) 
(ELSE <SET PRO <■ .PRO <1 .Sl»>)> 
<5ET SI <REST .Sl») 

(ELSE < RE TURN .PRD>)»>S 
F 2 

<F1 *(1 2) M3 4»S 
14 

<F1 MT 2) M3 4)>S 
#FALSE ( "NON-NUMBER") 


9.9. Argmnem List Summary 

The following is a listing of all the various tokens which can appear in the argument LIST of a 
FUNCTION, in the order in which they can occur. Short descriptions of their effects are included. 
All of them are optional - that is. any of them (in any position) can be left out or included -- but 
the order in which they appear must be that of this list. “QUOTEd ATOM", "matching object", and *2- 
list" are defined below. 


(1) "BIND" 

must be followed by an ATOM. It binds that ATOM to the ENVIRONMENT which existed 
when the FUNCTION was applied. 

(2) ATOMs and QUOTFd ATOM* (any number) 

are required arguments. QUOTEd ATOMs are bound to the matching object. ATOMs are 
bound to EVAL of the matching object in the ENVIRONMENT existing when the FUNCTION 
was applied. 

(3) "OPTIONAL" or "OP1" (they’re equivalent) 

is followed by any number of ATOMs, QUOTEd ATOMs, or 2-lists. These are optional 
arguments. If a matching object exists, an ATOM •• either standing alone or the first 
element of a 2-list - is bound to EVAL of the object, performed in the ENVIRONMENT 
existing when the FUNCTION was applied. A QUOTEd ATOM - alone or in a 2-list - is 
bound to the matching object itself. If no such object exists. ATOMs and QUOTEd ATOMs 
are left unbound, and the first element of each 2-list is bound to EVAL of the 
corresponding second element. (This EVAL is done in the new ENVIRONMENT of the 
Function as it is being constructed.) 
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(4) "ARGS" (and not "TUPLE") 

must be follow cd by an ATOM. The ATOM is bound to a LIST of all the remaining 
arguments, unevaluat rd. (If there are no more arguments, the LIST is empty.) This 
LIST is actually a REST of the FORM applying the FUNCTION. If "ARGS" appears in the 
argument LIST, " TUPLE" should not appear. 

(4) "TUPLE" (and not "ARGS") 

must be followed by an ATOM. The ATOM is bound to a TUPLE (“VECTOR on the control 
stack ') of all the remaining arguments, evaluated in the environment existing when the 
FUNCTION was applied. (If no arguments remain, the TUPLE is empty.) If "TUPLE" 
appears in the argument LIST, "ARGS" should not appear. 

(5) "AUX" or "EXTRA" (they’re equivalent) 

is followed by any number of ATOMs or 2-lists. These are auxiliary variables, bound 
away from the previous environment for the use of this Function. ATOMs are bound in 
the ENVIRONMENT of the Function, but they are unassigned: the first element of each 2- 
list is both bound and assigned to EVAL of the corresponding second element. (This 
I.VAL is done in the new ENVIRONMENT of the Function as it is being constructed.) 

(6) "NAME" or "ACT" (they're equivalent) 

must be followed by an ATOM. The ATOM is bound to the ACTIVATION of the current 
evaluation of the Function. 

ALSO - in place of sections (2) (3) and (4), you can have 
(2-3-4) "CAM " 

which must be followed by an ATOM. The ATOM is bound to the FORM which caused 
application of this FUNCTION. 


The special terms used above mean this: 

“QUOTCd ATOM" - a two-element TORM whose first element is the ATOM QUOTE, and whose second 
element is any ATOM. (Can be typed - and will be PRINTcd - as 'atom.) 

Matching object' -- that clement of a FORM whose position in the FORM matches the position of a 
required or optional argument in an argument LIST. 

“2-list” - a two-element LIST whose first element is an ATOM (or QUOTEd ATOM; see below) and whose 
second element can be anything but a SEGMENT. EVAL of the second element is assigned to a new 
binding of the first element (the ATOM) as the "value by default" in "OPTIONAL" or the “initial value" 
in "AUX". In the case of "0P110NAL", the first element of a 2-list can be a QUOTEd ATOM; in this 
case, an argument which is supplied is not EVALed. but if it is not supplied the second element of 
the LIST is EVAled and assigned to the ATOM. 
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Occasionally there is a valid reason for the first element of a FORM not to be an ATOM. For example, 
the object to be applied to arguments may be chosen at run time, or it may depend on the 
arguments in some way. While CVAL is perfectly happy in this case to EVALuate the first element 
and go on from there, the compiler (l.ebling, 1979) can generate more efficient code if it knows 
whether the result of the evaluation will (I) always be of TYPE FIX, (2) always be an applicable non- 
FIX object that evaluates all its arguments, or (3) neither. The easiest way to tell the compiler if (1) 
or (2) is true is to use the ATOM NTH (section 7.1.2) or PUT (section 7.1.4) in case (1) or APPLY in case (2) 
as the first element of the rORM. (Note: case (1) can compile into in-line code, but case (2) compiles 
into a fully mediated call into the interpreter.) 


<APPLY object arg-1 ... arg-N> 


evaluates object and all the arg-is and then applies the former to all the latter. An error occurs if 
object evaluates to something not applicable, or to an FSUBR, or to a FUNCTION (or user Subroutine « 
chapter 19) with "ARGS" or "CALL" or QUOTEd arguments. 


Example: 


<APPLY <NTII .ANALYZERS 

<LENG1H <MEMQ (TYPE .ARG> .ARGTYPES»> 

.ARG> 


calls a function to analyze .ARG. Which function is called depends on the TYPE of the argument; 
this represents the idea of a dispatch table. 


9.11. CLOSURE 

< CLOSURE function a l aN> 

where function is a FUNCTION, and al through aN are any number of ATOMs, returns an object of 
TYPE CLOSURE. This can be applied like any other function, but. whenever it is applied, the ATOMs 
given in the call to CLOSURE are first bound to the VALUES they had when the CLOSURE was 
generated, then the function is applied as normal. This is a "poor man’s funarg". 

A CLOSURE is useful when a FUNCTION must have state information remembered between calls to it, 
especially in these two cases: when the LVALs of external state ATOMs might be compromised by other 
programs, or when more than one distinct sequence of calls are active concurrently. Example of the 
latter: each object of a structured NEVTYPE might have an associated CLOSURE tha' coughs up one 
element at a time, remembering between calls how far it got. Often only one ATOM will be included 
in the CLOSURE, svitli a value in the CLOSURE that is a structure containing all the relevant 
information. 
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Chapter 10. Looping 


L 


to.l. PROG and REPf AT fll 

PROG and REPEAT arc almost identical FSUBRs which make it possible to vary the order of EVALuation 
arbitrarily -- that is. to have "jumps". The syntax of PROG ("program") is 

<PROG act -.atom auxJist body > 

where 

act is an optional ATOM, which is bound to the ACTIVATION of the PROG. 

aux is a LIST which looks exactly like that part of a FUNCTION’S argument LIST which follows 
an "AUX", and serves exactly the same purpose. It is not optional. If you need no temporary 
variables or "ACT", make it ( ) . 

body is a non-zero number of arbitrary MDL expressions. 

The syntax of REPEAT is identical, except that, of course, REPEAT is the first element of the FORM, 
not PROG. 


10.1.1. Basic EVALuation [I] 

Upon entering a PROG, an ACTIVATION is always generated. If there is an ATOM in the right place, 
the ACTIVATION is also bound to that ATOM. The variables in the aux (if any) are then bound as 
indicated in the aux. All of the expressions in body art then EVALuated in their order of occurrence. 
If nothing untoward happens, you leave the PROG upon evaluating the last expression in body. 
returning the value of that last expression. 

PROG thus provides a way to package together a group of things you wish to do, in a somewhat more 
limited way than can be done with a FUNCTION. But PROGs are generally used for their other 
properties. 
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REPEAT acts in ail ways exactly like a PROG whose last expression is <AGAIN>. The only way to leave 
a REPEAT is to explicitly use RETURN (or GO with a TAG - section 10.4). 


10.1.2. AGAIN and RETURN in PROG and REPEAT [1] 

Within a PROG or REPEAT, you always have a defined ACTIVATION, whether you bind it to an ATOM 
or not. [In fact the interpreter binds it to the ATOM LPR0G\ ! -INTERRUPTS Clast PROG"). The FSUBR 
BIND is identical to PROG except that BIND does not bind that ATOM, so that AGAIN and RETURN with 
no ACTIVATION argument will not refer to it. This feature could be useful within MACROS.] 

If AGAIN is used with no arguments, it uses the ACTIVATION of the closest surrounding PROG or 
REPEAT with in the curre nt function (an error occurs if there is none) and re-starts the PROG or 
REPEAT without rebinding the mix variables, just the way it works in a FUNCTION. With an 
argument, it can of course re-start any Function (PROG or REPEAT or FUNCTION) within which it ia 
embedded at run time. 

As with AGAIN, if RETURN is given no ACTIVATION argument, it uses the ACTIVATION of the closest 
surrounding PROG or REPEAT within the current function and causes that PROG or REPEAT to 
terminate and return RETURN’S first argument. If RETURN is given no arguments, it causes the 
closest surrounding PROG or REPEAT to return the ATOM T. Also like AGAIN, it can, with an 
ACTIVATION argument, terminate any Function within which it is embedded at run time. 


10.1.3. Examples [I] 

Examples of the use of PROG are difficult to find, since it is almost never necessary, and it slows 
down the interpreter (chapter 2-1). PROG can be useful as a point of return from the middle of a 
computation, or inside a COND (which see), but we won’t exemplify these uses. Instead, what follows 
is an example of a typically poor use of PROG which has been observed among Lisp (Moon, 1974) 
programmers using MDL. Then, the same thing is done using REPEAT. In both cases, the example 
FUNCTION just adds up all its arguments and returns the sum. (The SUBR GO is discussed in section 
10.4.) 

;"Lisp style" 

(DEFINE MY* ("TUPLE" TUP) 

<PR0G (SUM) 

(SET SUM 0> 

LP (COND ((EMPTY? .TUP> (RETURN .SUM»> 

(SET SUM (♦ .SUM (1 .TUP»> 

(SET TUP (REST .TUP» 

(GO LP>» 
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; "MDL style" 

(DEFINE MY+ ("TUPLE" TUP) 

(REPEAT ((SUM 0)) 

(CO ND ((EMPTY? .TUP> (RETURN .SUM»> 

(SET SUM (+ .SUM (1 .TUP» 

(SET TUP (REST .TUP»» 

Of course, neither of the above is optimal MDL code for this problem, since MY* can be written 
using SEGMENT evaluation as 

(DEFINE MY+ ("1UPLE" TUP) (+ ! ,TUP» 

There arc. of course, lots of problems which can’t be handled so simply, and lots of uses for REPEAT. 


10.2. MAPF and HAPR: Basics [1] 

MAPF ("map first") and MAPR ("map rest") are two SUBRs which take care of a majority of cases which 
require loops over data. The basic idea is the following: 

Suppose you have a LIST (or other structure) of data, and you want to apply a particular function 
to each element. That is exactly what MAPF does: you give it the function and the structure, and it 
applies the function to each element of the structure, starting with the first. 

On the other hand, suppose you want to change each element of a structure according to a 
particular algorithm. This can be done only with great pain using MAPF, since you don’t have easy 
access to the structure inside the function: you have only the structure's elements. MAPR solves the 
problem by applying a function to RESTs of a structure: first to (REST structure 0>, then to 
(REST structure 1>, etc. Thus, the function can change the structure by changing its argument, 
for example, by a (PUT argument 1 something >. It can even PUT a new element farther down the 
structure, which will be seen by the function on subsequent applications. 

Now suppose, in addition to applying a function to a structure, you want to record the results -• the 
values returned by the function -- in another structure. Both MAPF and MAPR can do this: they both 
take an additional function as an argument, and, when the looping is over, apply the additional 
function to all the results, and then return the result of that application. Thus, if the additional 
function is .LIST, you get a LIST of the previous results: if it is .VECTOR, you get a VECTOR of 
results: etc. 

Finally, it might be the case that you really want to loop a function over more than one structure 
simultaneously. For instance, consider creating a LIST whose elements are the element-by*element 
sum of the contents of two other LISTs. Both MAPF and MAPR allow this: you can, in fact, give each 
of them any number of structures full of arguments for your looping function. 
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This was all mentioned because MAPF and MAPR appear to be complex when seen baldly, due to the 
fact that thr argument descriptions must take into account the general case. Simpler, degenerate 
cases are usually the ones used. 


10.2.1. MAPF [I] 

<MAPF final f loopf si s2 ... sN> 
where (after argument evaluation) 

fmalt is something applicable that evaluates all its arguments, or a FALSE; 
loopf is something applicable to N arguments that evaluates all its arguments; and 
si through sA' arc structured objects (any TYPE) 
does the following: 

(1) First, it applies loopf to N arguments: the first element of each of the structures. Then it 
RESls each of the structures, and docs the application again, looping until any of the structures 
runs out of elements. Each of the values returned by loop! is recorded in a TUPLE. 

(2) Thru, it applies final/ to all the recorded values simultaneously, and returns the result of that 
application. If finalf is a FALSE, the recorded values are "thrown away" (actually never recorded 
in the first place) and the MAPF returns only the last value returned by loopf. If any of the si 
structures is empty, so that loopf is never invoked, finalf is applied to no arguments; if finalf is a 
FALSE, MAPF returns (FFALSE (). 


10.2.2. MAPR [I] 

<MAPR finalf loopf si s2 ... sN~> 

acts just like MAPF, but. instead of applying loopf to NTHs of the structures - that is, <NTH si 1>, 
<NTH si 2>, etc. - it applies it to RESTs of the structures -- that is, <REST si 0>, <REST si 1>, etc. 

10.2.3. Examples [I] 

Make the element-wise sum of two LISTs: 

<MAPF .LIST ,+ ’(1 234) ’(10 11 12 13)>S 
(11 13 15 17) 
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* 




I 


‘ 



Chang, a UVFCTOR to contain double its values: 

<SE T UV 1 • £ 5 6 7 8 9]>$ 

'[5 G 7 R 9' ] 

<MAPR <> 

^FUNCTION ((L) <PUT .L 1 <* <1 .L> 2») 

.UV>S 

I [ 10! ] 

.11 VS 

![10 12 14 16 18!] 

Create a STRING from CHARACTERS: 

<MAPF .STRING 1 '[ "MODELING" "DEVELOPMENT" "LIBRARY" ]>$ 

"MDL" 

Sum the squares of the elements of a UVECTOR: 

<MAPF .♦ (-FUNCTION ( (N) <* .N .N>) ' ![3 4]>S 

25 

A parallel assignment FUNCTION (Note that the arguments to MAPF are of different lengths.): 

<DFF INr PSET ("TUPLE" TUP) 

<MAPF <> 

,SET 

.TUP 

<REST .TUP </ < LENGTH .TUP> 2»»$ 

PSET 

<PSET A B C 1 2 3>S 
3 

.AS 

1 

,B$ 

2 

.CS 

3 

Note: it is easy to forget that firutlf must evaluate its arguments, which precludes the use of an 
FSUBR. It is primarily for this reason that the SUBRs AND? and OR? were invented. As an example, 
the predicate =? could have been defined this way: 
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<DEFINE = ? (A B) 

<COND (< MONAD? .A> <==? .A .B>) 

(<AND <NOT < MONAD? .B» 

<==? <TYPE .A> <TYPE .B» 

<==? <LEN6TH .A> < LENGTH .B»> 

<MAPF .AND? , = ? .A .B>)» 

[By the way. the following shows how to construct a value that has the same TYPE as an argument. 
<DEFINE MAP-NOT (S) 

<COND (<MFMQ <PRIMTYPE .S> ' ([LIST VECTOR UVECTOR STRING]) 

<CHTYPE <MAPF ,<PRIMTYPE .S> .NOT .S> 

<TYPE .S»)» 

It works because the ATOMs that name the common STRUCTURED PRIMTYPEs (LIST, VECTOR. 
UVECTOR and STRING) have as GVALs the corresponding SUBRs to build objects of those TYPEs.] 


10.3. More o n MAPF and MAPR 


10.3.1. MAPRtl 

MAPRET is a SUBR that enables the loop f being used in a MAPR or MAPF (and lexically within it, that is, 
not separated from it by a function call) to return from zero to any number of values as opposed to 
just one. For example, suppose a MAPF of the following form is used: 

<MAPF .LIST FUNCTION (E) ...> ...> 

Now suppose that the programmer wants to add no elements to the final LIST on some calls to the 
FUNCTION and add many on other calls to the FUNCTION. To accomplish this, the FUNCTION simply 
calls MAPRET with the elements it wants added to the LIST. More generally, MAPRET causes its 
arguments to he added to the final TUPLE of arguments to which the finalf will be applied. 

Warning: MAPRET is guaranteed to work only if it is called from an explicit FUNCTION which is the 
second argument to a MAPF or MAPR. In other words, the second argument to MAPF or MAPR must be 
^FUNCTION (...) or FUNCTION . . .> if MAPRET is to be used. 

Example: the following returns a LIST of all the ATOMs in an OBLIST (chapter 15): 

<DEFINE ATOMS (00) 

<MAPF .LIST 

< FUNCTION (BKT) <MAPRET ! .BKT» 

.0B» 
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10.3.2. MAPS 1 OP 

MAPSTOP is t lir samp as MAPRE T, except that, after adding its arguments, if any. to the final TUPLE, 
it fours the application of to occur, whether or not the structured objects have run out of 
elements. I sample: t he following copies the first ten (or all) elements of its argument into a LIST : 

<0ri INI F 1RSI-IEN (S1RUC "AUX" (I 10)) 

<MAPF .LIST 

(FUNCTION (C) 

<C0ND ( <0 ? <SE T I <- .1 1»> <HAPST0P .E>)> 

.E> 

,STRIIC>> 


10.3 3. MAPI I AVI 

MAPI E AVI is analogous to R| ltlRN, except that it works in (lexically within) MAPF or MAPR instead of 
PROG or RE PI AT . It flushes the accumulated TUPLE of results and returns its argument (optional. T 
by default) as the value of the MAPI or MAPR. (It finds the MAPF/R that should return in the current 
binding of the A10II I MAP\ ! - INTERRUPTS ("last map").) Example: the following finds and returns 
the first non-rero element of its argument, or #rALSE ( ) if there is none: 

< DEFINE FIRST-NO (STRUC) 

(MAPF <> 

(FUNCTION (X) 

CCONll (<N=*? .X 0> (MAPLEAVE .X>)» 

. STRUC>> 


10.3. 1. Only two arguments 

If MAPr or MAPR js given only two arguments, the iteration function loopf is applied to no arguments 
each time, and the looping continues indefinitely until a MAPLEAVE or MAPSTOP is invoked. 
Example: the following returns a l IS1 of the integers from one less than its argument to aero. 

(DEFINE l NUN (N) 

<MAPF . I 1ST 

(FUNCTION () 

(C0ND ((0? (SFT N (- ,N 1>» (MAPSTOP 0>) 

(ELSE ,N)>>» 

One principle use of this form of MAPF/R involves processing input characters, in cases where you 
don’t know how many characters are going to arrive. The example below demonstrates this, using 
SlIBRs which are more fully explained in chapter II. Another example can be found in chapter 13. 
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Example: the following FUNCTION reads characters from the current input channel until an S (ESC) 
is read, and then returns wl.at was read as one STRING. (The SUBR READCHR reads one character from 

the input channel and returns it. NEXTCHR returns the next CHARACTER which REAOCHR will return - 
chapter II.) 

<DEf INL KDSTK () 

<HAPF .STRING 

FUNCTION () <COND (<NOT <«? <NEXTCHR> <ASCII 27»> 

<READCHR>) 

(T 

<HAPSTOP>)»»S 

RDSTR 

<PROG () <READCHR> ;"Flush the ESC ending this input.* 

<RDSTR»S 

ABC 1?3<* 3 4>S"ABC1?3<* 3 4>* 


10.3.5. STACKFORM 

The FSUBR STACK! OUM is archaic, due to improvements in the implementation of MAPF/R. and it 
should not be used in now programs. 


<S1ACKI0RM (unction ar g pred'f 
is exactly equivalent to 
<MAPf function 

< FUNCTION () <C0ND ( pred arg) (T <MAPST0P>)»> 

In fact MAPF/R is more powerful, because MAPRET. MAPSTOP, and MAPLEAVE provide flexibility not 
available with STACK! ORH. 


10.4. GO and I AG 


GO is provided in MDL for people who can’t recover from a youthful experience with Basic. Fortran. 
PL/I. etc. I he SMBRs previously described in this chapter are much more tasteful for making good, 
clean, structured” programs. GO just bollixes things. 


GO is a SUBR which allows you to break the normal order of evaluation and re-start just before any 
top-level expression in a PROG or REPEAT. It can take two TYPEs of arguments: ATOM or TAG. 
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Given .an AIOM, (.0 searches l lie body of the immediately surrounding PROG or REPEAT within the 
current Function. Mailing after ai/>. for an occurrence of that ATOM at the top level of body. (Thi» 
search is rlfeclively a MIMQ.) If it doesn’t find the AIOM, an error occurs. If it does, evaluation is 
resumed at the expression following the ATOM. 

1 he SlllTR 1 AG generates and returns objects of TYPE TAG. This SUBR takes one argument: an ATOM 
which would he a legal argument for a GO. An object of TYPE TAG contains sufficient information 
to allow you to (.0 to any top-level position in a PROG or REPEAT from within any function called 
inside (he PROG or REPEAT . GO with a TAG is vaguely like AGAIN with an ACTIVATION; it allows you 
to "go hack" to the middle of any PROG or REPEAT which called you. Also like ACTIVATIONS. TAGs 
into a PROG or Rf PEAT can no longer be used after the PROG or REPEAT has returned. LEGAL? can be 
used to see if a I AG is still valid. 


10.5. Looping versus Recursion 

Since any program in MDL can be called recursively, champions of "pure Lisp" (Moon, 197*1) or 
sonirsurh may he tempted to implement any repetitive algorithm using recursion. The advantage 
of the looping techniipies desciihed in this chapter over recursion is that the overhead of calls is 
eliminated. However, a long program (say. bigger than half a printed page) may be more difficult 
to write iteratively than recursively ami hence more difficult to maintain. A program whose 
repetition is controlled by a structured ob ject (for example, "walking a tree" to visit each monad in 
the object) often should use looping for covering one "level" of the structure and recursion to change 
levels . 
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Chapter 11. Input/Output 

The MDL interpreter can transmit information between an object in MDL and an external device 
in three ways. Historically, the first svay was to convert an object into a string of characters, or 
vice versa. The transformation is nearly one-to-one (although some MDL objects, for example 
TUPLEs. cannot he input in this way) and is similar in style to Fortran's formatted I/O. It is what 
READ and PR1N1 do. and it is t lie normal method for terminal I/O. 

The second way is used for the contents of MDL objects rather than the objects themselves. Here 
an linag e of numbers or characters within an object is transmitted, similar in style to Fortran’s 
unformatted I/O. 

The third way is to dump an object in a clever format so that it can be reproduced exactly when 
input the next time. Exact reproduction means that any sharing between structures or self- 
reference is preserved: only the garbage collector itself can do I/O in this way. 


ILL C onversion I/O 

All conversion-l/O SlIBRs in MDL take an optional argument which directs their attention to a 
specific I/O channel. This section will describe SUBRs without their optional arguments. In this 
situation, they all refer to a particular channel by default, initially the terminal running the MDL. 
When given an optional argument, that argument follows any arguments indicated here. Some of 
these SUBRs also have additional optional arguments, relevant to conversion, discussion of which will 
be deferred until later. 


1 1.1.1. Input 

All of the following input Subroutines, when directed at a terminal, hang until S (ESC) is typed and 
allow normal use of rubout, A D, A L and A @. 
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II I. LI. Rl AO 

<REAP> 

This returns the entirr M 01. object whose character representation is next in the input stream. 
Successive <RI AO>s return successive objects. This is precisely the SUBR REAO mentioned in chapter 
2. See also sections 11.3. 15.7.1. and 17.1.3 for optional arguments. 

II. 1.1.2. Rr AoriiR 

< RE APC.HR > 

("read character”) returns the next CHARACTER in the input stream. Successive <READCHR>s return 
successive CHARACTERS. 

II. 1.1.3. NEXTCIIR 

<NEXTCHR> 

(“next character") returns the CHARACTER which REAOCHR will return the next time REAOCHR is called. 
Multiple < NEXTCIIR >s. with no input operations between them, all return the same thing. 


II. 1.2. Output 

If an object to be output requires (or can tolerate) separators within it (for example, between the 
elements in a structured object or after the TYPE name in # notation ), these conversion-output 
SUBRs will use a carriagc-rcturn/line-fccd separator to prevent overflowing a line. Overflow is 
detected in advance from elements of the CHANNEL in use (section 11.28). 

11.1.2. 1. PRINT 

< PRINT an>> 

This outputs, in order. 

(1) a carriage-return line-feed. 

(2) the character representation of EVAL of its argument (PRINT is a SUBR), and 

(3) a space 

and then returns EVAL of its argument. This is precisely the SUBR PRINT mentioned in chapter 2. 

11.1.2.2. PRIN1 

< PR INI ant > 

outputs just the representation of, and returns, EVAL of any. 
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II. 1.2.3. PR INC 


< PR INC any > 

(“prim characters") acts exactly like PRIN1, except that 

(1) if it* argument is a STRING or a CHARACTER, it suppresses the surrounding or initial *\ 
respectively: or. 

(2) if its argument is an ATOM, it suppresses any \s or OflLIST trailers (chapter 15) which would 
otherwise lie necessary. 

,f PRINC’s argument is a structure containing STRINGS. CHARACTERS, or ATOMs. the service mentioned 
will be clone for all of them. Ditto for the ATOM used to name the TYPE in “# notation*. 

11.1.2.4. TERPRI 


<TERPRI > 

( terminate printing ) outputs a carriage-return line-feed and then returns PFALSE ( )! 
II. 1.2.5. CRlf 


<CRLF> 

( carriage-return line feed") outputs a carriage-return line-feed and then returns T. 
11.1.2.6. FLATSIZE 


<Fl ATSIZF any maxdix r*dtx:fix> 

does not actually cause any output to occur and does not take a CHANNEL argument. Instead, it 
compares sue with the number of characters PRIN1 would take to print any. If max is less than the 
number of characters needed (including the case where any is self-referencing). FLATSIZE returns 
PFALSE (); otherwise, it returns the number of characters needed to PRIN1 any. radix (optional, ten 
by default) is used for converting any FIXcs that occur. 

This SUBR is especially useful in conjunction with (section 11.2.8) those elements of a CHANNEL 
which specify the number of characters per output line and the current position on an output line. 
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11.2. CH ANNI L (Hie TYPE) 

I/O channels are dynamically assigned in MDL. and are represented by an object of TYPE CHANNEL, 
which is of PR1NIYPE VECTOR. The format of a CHANNEL will be explained later, in section 
11.2 8. First, how to generate and use them. 


11.2.1. OPiN 


<OPfN mode iile-spec> 


or 


<OPfN mode name l name2 device dir > 


OPEN is a SllBR which creates and returns a CHANNEL. All its arguments must be of TYPE STRING, 
and all arc optional. The preceding statement is false when the device is " INT " or “NET"; see 
sections 119 and 11.10 If the attempted opening of an operating-system I/O channel fails. OPEN 
returns *t Al M {rp.**on : string file-spec:strmg statusdix) , where the reason and the status are 
supplied by the operating system, and the file-spec is the standard name of the file (after any name 
transformations by the operating system) that MDL was trying to open. 


The choice of mode is usually determined by which SUBRs will be used on the CHANNEL, and whether 
or not the de\icc is a terminal. The following table tells which SUBRs can be used with which modes, 
where OK indicates an allowed use: 


•READ" “PRINT" "RfADB" "PR1NTB" mode / SUBRs 

“PRINTO" 


OK 


OK 


READ READCMR NEXTCHR READSTRING FILECOPY FILE-LENGTH 
LOAO 


OK 


OK 

* PRINT PRINI 




PRINTSTRING 


OK 


READB GC-READ 



OK 

PRINTB GC-DUHP 

OK 

OK 

OK 

ACCESS 

OK OK 

OK 

OK 

RESET 

OK OK 



ECHOPAIR 

OK 



TTYECHO TYI 

* PRINTing (or 

PR IN ling 

) an 

RSUBR (chapter 19) on a 


effects. 


"PR IN IB" differs from "PRINTO" in that the latter mode is used to update a "DSK" file without 
copying it. "READB" and "PRINIB" are not used with terminals. "READ" is the mode used by 
default. 
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The next one to four arguments to OPEN specify the file involved. If only one STRING is used, it 
can contain the entire specification, according to standard operating-system syntax. Otherwise, the 
string(s) are interpreted as follows: 

name l is the first file name, that part to the left of the space (in the ITS version) or period (in the 
Tenex and Tops-20 versions). The name used by default is <VALUE NM1>, if any. otherwise 
•INPUT". 

name? is the second file name, that part to the right of the space (ITS) or period (Tenex and Tops- 
20). Thr name used hy default is CVALUC NM2>, if any, otherwise ■>• (ITS) or *MUD" and highest 
version number (Tenex) or generation number (Tops-20). 

device is the device name. The name used by default is <VALUE DEV>, if any. otherwise "DSK". 
(Devices about which MDL has no special knowledge are assumed to behave like ■OSH".) 

d<r is the disk-directory name. The name used by default is <VALUE SNM>, if any. otherwise the 
"working-directory" name as defined by the operating system. 

Examples: 

<OPEN "PRINT" "TPL:"> opens a conversion-output CHANNEL to the TPL device. 

<OPEN "PRINT" "DUMMY" "NAMES" " TPL" > does the same. 

<OPEN "PRINT" "TPL"> opens a CHANNEL to the file DSK :TPL > (ITS version) or DSK:TPL.HUD 
(Tenex and Tops-20 versions). 

<OPEN "READ" "TOO" ">" "DSK" "GUEST" > opens a conversion-input CHANNEL to the given file. 
<OPEN "READ" "GUEST ;F00" > does the same in the ITS version. 


11.2.2. OPEN-NR 


OPEN-NR is the saute as OPEN, except that the date and time of last reference of the opened file are 
not changed. 


11.2.3. CHANNEL (the SUBR) 

CHANNEL is called exactly like OPEN, but it always returns an unopened CHANNEL, which can later be 
opened by RESET (below) just as if it had once been open. 
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ii 2.4. riir-cxisis’ 

F ILE-EXIS1S 7 tests for the existence of a file without creating a CHANNEL, which occupies about a 
hundred machine words of storage. It takes file-name arguments just like OPEN (but no mode 
argument) and returns cither I or tT ALSE ( reason.-strmg statuses), where the reason and the status 
are supplied by the operating system. The date and time of last reference of the file are not 
changed 


11.2.5 CLOSl 

< CLOSE channel) 

closes channel and returns us argument, with its "state" changed to "closed*. If channel is for output, 
all buffered output is wiitten out first. No harm is done if channel is already CLOSEd. 


11.2 6. CHANL1ST 

< Cl I AN LIST > 

returns a l 1ST whose elements are all the currently open CHANNELS. The first two elements are 
usually , INCIIAN and .OIITCHAN (see below). A CHANNEL not referenced by anything except 
<CHANLIS1> will lie CLOSEd during gaibage collection. 


11.2.7. INCIIAN and OIITCHAN 

The channel used by default for input SUBRs is the local value of the ATOM INCHAN. The channel 
used by default for output SUBRs is the local value of the ATOM OUTCHAN. 

You can direct I/O to a CHANNEL by SETting INCHAN or OUTCHAN (remembering their old values 
somewhere!, or by giving the SlIRR you wish to use an argument of TYPE CHANNEL. (These actually 
have the same effect, because READ binds INCHAN to an explicit argument, and PRINT binds OUTCHAN 
similarly. Tims the CHANNEL being used is available for READ macros (section 17.1) and PRINTTYPEs 
(section 6.4. IT) 

By the way, a good trick for playing with INCHAN and OUTCHAN within a function is to use the ATOMs 
INCIIAN and OUTCHAN as "AUX" variables, re-binding their local values to the CHANNEL you want. 
When you leave, of course, the old LVALs are restored (which is the whole point). The ATOMs must be 
declared SPECIAL (chapter 14) for this trick to compile correctly. 

INCIIAN and OUTCHAN also have global values, initially the CHANNELS directed at the terminal running 
MDL. Initially. INCHAN’s and OIITCIIAN's local and global values are the same. 
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11.2 9. Contents of CHANNELS 


The contents of an object of TYPE CHANNEL are referred to by the I/O SUBRs each time auch a SUBR 
i» «»ed If yon change the rontrnti of a CHANNEL (for example, with PUT), the next use of that 
CHANNEL will be changed appropriately. Some elements of CHANNELS, however, should be played with 
seldom, if ever, and only at your peril. These are marled below with an ♦ (asterisk). Caveat user. 

There follows .» table of the contents of a CHANNEL, the TYPE of each element, and an interpretation. 
The format used is the following: 
element - nun, her : type inter pretftion 


1 1.2.9. 1. Output CIIANNI Is 

The contents of a CHANNEL used for output are as follows: 


-1: LIST 

transcript chauucl(s) (see below) 

• 0: varies 

device-dependent information 

♦ 1: FIX 

channel number (ITS) or JFN (Tenex and Tops-! 

• 2: STRING 

mode 

• 5: SIRING 

first file name argument 

♦ 4: STRING 

second file name argument 

• 5: STRING 

device name argument 

♦ & STRING 

directory name argument 

• 7: STRING 

real first file name 

♦ 9: STRING 

real second file name 

• 9: STRING 

real device name 

»I0: STRING 

real directory name 

*11: FIX 

various status bits 

♦ 12: FIX 

PDP-10 instruction used to do one I/O operation 

15: FIX 

number of characters per line of output 

14: FIX 

current character position on a line 

15: FIX 

number of lines per page 

16: FIX 

current line number on a page 

17: FIX 

access pointer for file-oriented devices 

18: FIX 

radix for F IX conversion 

19: FIX 

sink for an internal CHANNEL 


N B : The elements of a CHANNEL below number I are usually invisible but are obtainable via <NTH 
OOP channel') fi»>, for some appropriate fnr. 

The transcript-channels slot has this meaning: if this slot contains a LIST of CHANNELS, then 
anything input or output on the original CHANNEL is output on these CHANNELS. Caution: do not use 
a CHANNFL as its own transcript channel; you probably won't live to tell about it. 
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11.2.8.2. Input CHANNELS 


Tlie contents of the elements up to number 12 of a CHANNEL used for input are the same as that for 
output. The remaining elements are as follows ((same) indicates that the use is the same as that for 
output): 


13: varies 
*14: FIX 
*15: FIX 
16: LIST 
17: FIX 
18: FIX 
19: STRING 


object evaluated when end of file is reached 
one "look-ahead” character, used by READ 
PDP-10 instruction executed waiting for input 
queue of buffers for input from a terminal 
access pointer for file-oriented devices (same) 
radix for FIX conversion (same) 
buffer for input or source for internal CHANNEL 


11.3. End-of-Filc "Routine" 


As mentioned above, an explicit CHANNEL is the first optional argument of all SUBRs used for 
conversion I/O. The second optional argument for conversion- input SUBRs is an “end-of-file 
routine" - that is. something for the input SUBR to EVAL and return, if it reaches the end of the file 
it is reading. A typical end-of-file argument is a QUOTEd FORM which applies a function of yours. 
The value of this argument used by default is a call to ERROR. Note: the CHANNEL has been CLOSEd 
by the time this argument is evaluated. 

Example: tlir following FUNCTION counts the occurrences of a character in a file, according to its 
arguments. The file names, device, and directory are optional, with the usual names used by default. 

<DCriNE COUNT-CHAR 

(CHAR "TUPLE" FILE "AUX" (CNT 0) (CHN <0PEN "READ* !.FILE>)) 

<C0ND (.CHN ; "If CHN is FALSE, bad OPEN: return the FALSE 

so result can be tested by another FUNCTION." 

<RCPEAT () 

< AND <==? .CHAR <REA0CHR .CHN *<RETURN>» 

<SET CNT <+ 1 .CNT»» 

; "Unti 1 EOF, keep reading and testing a character at a time." 
.CNT ;"Then return the count. ")>> 
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11.4. Imaged I/O 


11.4.1. Input 

11.4.1.1. READB 

< READB buffer. wee tor -or -storage channel eof:any> 

The channel must he open in "REAOB" mode. READB will read as many 36-bit binary words as 
necessary to fill the buffer (whose UTYPE must be of PRIMT YPE WORD), unless it hits the end of file. 
READB returns the number of words actually read, as a FIXed-point number. This will normally be 
the length of the buffer, unless the end of file was read, in which case it will be less, and only the 
beginning of buffer will have been filled (SUBSTRUC may help). An attempt to READB again, after 
buffer is not filled, will evaluate the end-of-file routine eof, which is optional, a call to ERROR by 
default. J 

11.4.1.2. READSTRING 

<READNIRING buffer .string channel stopJix-or-string eof> 

is the STRING analog to READB, where buffer and eof are as in READB, and channel is any input 
CHANNEL ( . INCIIAN by default), stop tells when to stop inputting: if a FIX, read this many 
CHARACTERS (fill up buffer by default): if a STRING, stop reading if any CHARACTER in this STRING is 
read (don't include this CHARACTER in final STRING). 


1 1.4.2. Output 

11.4.2.1. PRINTB 

<PRINTB buffer wee tor -or -storage channel > 

This call writes the entire contents of the buffer into the specified channel open in "PRINTB" or 
"PRINTO" mode. It returns buffer. 

11.4.2.2. PRINTSTRING 

<PRINTSTRTNG buff er -.string channel count .-fix') 

is analogous to READSTRING. It outputs buffer on channel, either the whole thing or the first count 
characters, and returns the number of characters output. 
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II. 4.2.3. IMAGE 

<IMAGC fix channel) 

is a rather special-purpose SUBR. When any conversion-output routine outputs an ASCII control 
character (with special exceptions like carriage-returns, line-feeds, etc.), it actually outputs two 
characters: * (circumflex), followed by the upper-case character which has been control-shifted. 
IMAGE, on the other hand, always outputs the real thing: that ASCII character whose ASCII 7-bit 
code is fix. It is guaranteed not to give any gratuitous line-feeds or such, channel is optional, 
.OUTCHAN by default, and its slots for current character position (number 14) and current line 
number (16) are not updated. IMAGE returns fix. 


11.5. Dump ed I/O 


11.5.1. Output: GC-DUMP 

<GC-DUMP any pnntbxhannel-or-false) 

dumps any on pnnth in a clever format so that GC-READ (below) can reproduce any exactly, including 
sharing. an\ cannot live on the control stack, nor can it be of PRIMTYPE PROCESS or LOCO or ASOC 
(which see) any is returned as a value. 

If print b is a CHANNEL, it must be open in "PRINTB" or "PRINTO" mode. If printb is a FALSE, 
GC -DUMP instead returns a UVECTOR (of UTYPE PRIMTYPE WORD) that contains what it would have 
output on a CHANNEL. This UVECTOR can be PRINTBed anywhere you desire, but, if it is changed in 
any svay . GC-READ will not be able to input it. Probably the only reason to get it is to check its 
length heforr output. 

Except for the miniature garbage collection required, GC-DUMP is about twice as fast as PRINT, but 
the amount of external storage used is two or three times as much. 


11.5.2. Input: GC-READ 

< GC-READ readbxhannel eof.any) 

returns one ob ject from Hip channel, which must be open in "READB" mode. The file must have been 
produced by GC-DUMP. eof is optional. GC-READ is about ten times faster than READ. 
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11.6. SAVE Files 

The entire state of MDI can be saved away in a file for later restoration: this is done with the SUBRs 
SAVE and RESIORf . This is a very different form of I/O from any mentioned up to now; the file 
used contains an actual image of your MDL address space and is not. in general, "legible* to other 
MDL routines. Rt S I OKI ing a SAVf file is much faster than re-READing the objects it contains. 

Since a SAVf file does not contain all extant MDL objects, only the impure and PURIFYed (section 
‘22.9.2) ones, a change to the interpreter has the result of making all previous SAVE files unusable. 
To prevent errors from aiisiug from this, the interpreter has a release number, which is incremented 
whenever changes air installed. The current release number is printed out on initially starting up 
the program and is available as the GVAL of the ATOM MUDDLE. This release number is written out 
as the vet y first part of each SAVE file. If RESTORE attempts to re-load a SAVE file whose release 
nutuher is not the same as the interpreter being used, an error is produced. If desired, the release 
number of a SAVf file can he obtained by doing a READ of that file. Only that initial READ will 
work: the rest of the file is not ASCII. 


11.6.1. SAVE 

<5AVE file spec string gc?:lilse-or-any> 


or 


<SAVE o.inirt name? device dir gc’.ftlse-or-tny) 

saves the eutitc state of your MDL away in the file specified by its arguments, and then returns 
"SAVED". All STRING arguments ate optional, with "MUDDLE", "SAVE", "DSK" , and <VALUE SNM> 
used by default. * u ’’ is optional and. if supplied and of TYPE FALSE, causes no garbage collection to 
occur before SAVI ing. (fSAVI is ail alias for SAVE that may be seen in old programs.) 

If. after restoring. RESTORl finds that (VALUE SNM> is the null STRING (""), it will ask the operating 
system for the name of the "working directory" and call SNAME with the result. This mechanism is 
handy for "public" SAVI files, which should not point the user at a particular disk directory. 

In the ITS version, the file is actually written with the name _MUDS_ > and renamed to the 
argumrut(s) only when complete, to prevent losing a previous SAVE file if a crash occurs. In the 
Tenex and Tops-20 versions, version/generation numbers provide the same safety. 

Example: 


11.6 • 11 . 6.1 


Input/Output 


The MDL Programming Language 


109 


<DEFINC SAVE -IT ("OPTIONAL" 

(FILE '( "PUBLIC" "SAVE" "DSK" "6UEST" ) ) 
"AUX" (SNM "")) 

<SETUP> 

<COND (<=? "SAVED" <SAVE ! .FILE» ;"See below." 
<CLEANUP> 

"Saved." ) 

(T 

<CRLF> 

<PRINC "Amazing program at your service. "> 
<CRLF> 

<START-RUNNING>)» 


11.6.2. RESTORE 

< RES TORE file-spec > 


or 


<RESTORE namel name2 device dir > 

replaces the entire current state of your MDL with that SAVEd in the file specified. All arguments 
are optional, with the same values used by default as by SAVE. 

RESTORE completely replaces the contents of the MDL, including the state of execution existing 
when the SAVE was done and the state of all open I/O CHANNELS. If a file which was open when the 
SAVE was done docs not exist when the RESTORE is done, a message to that effect will appear on the 
terminal. 

A RESTORE never returns (unless it gets an error): it causes a SAVE done some time ago to return 
again (this time with the value "RESTORED"), even if the SAVE was done in the midst of running a 
program. In the latter case, the program will continue its execution upon RESTOREation. 


11.7. Other I/O Functions 


11.7.1. LOAD 

<LOAD input -.channel look-up> 

eventually returns "OONE". First, however, it READs and EVALs every MDL object in the file pointed 
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to by input, amt then CLOSE* input. Any occurrences of rubout, A D, *L, etc., in the file are 
given no special meaning: they are simply ATOM constituents. 

look-up is optional, used to specify a LIST of OBLISTs for the READ. .OBLIST is used by default 
(chapter 15). 


11.7.2. FLOAD 


<FLOAD file-spec !ook-up> 


or 


<FLOAD riamel name2 device dir look-up > 

("file load") acts just like LOAD, rxcept that it takes arguments (with values used by default) like 
OPEN, OPLNs the CHANNEL itself for reading, and CLOSES the CHANNEL when done, look-up is optional, 
as in LOAO. If the OPEN fails, an error occurs, giving the reason for failure. 


11.7.3. SNAME 

<SNAME shine > ("system name", a hangover from ITS) is identical in effect with <SETG SNM string>, 
that is. it causes string to become the dir argument used by default by all SUBRs which want file 
specifications (in the absence of a local value for SNM). SNAME returns its argument. 

<SNAME> is identical in effect with <GVAL SNM>, that is. it returns the current dir used by default. 


11.7.4. ACCESS 

<ACCESS channel fix > 

returns channel, after making the next character or binary word (depending on the mode of channel. 
which should not be "PRINT") which will be input from or output to channel the (f/x«l)st one from 
the beginning of ihe file, channel must be open to a randomly accessible device ("DSK", "USR*, 
etc.). A fix of 0 positions channel at the beginning of the file. 

11.7.5. FILE-LENGTH 

CFILE-LENGTH input -.channel) 

returns a FIX, the length of the file open on input. This information is supplied by the operating 
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system. and it may not be available, for example, with the "NET” device (section 11.10). If input ’s 
mode is "RIAD", the length is in characters (rounded up to a multiple of five); if "READS", in 
binary words. If ACCESS is applird to input and this length or more, then the next input operation 
will detect the end of file. 


11.7.6. F II EC.OI’Y 

<rillCOPY input xhannet out put -.channel) 

copies characters from input to output until the end of file on input (thus closing input) and returns 
the number of characters copied. Both arguments are optional, with .INCHAN and .OUTCHAN used by 
default, respectively. The operation is essentially a READSTRING - PRINTSTRING loop. Neither 
CHANNEL need be freshly OPENcd, and output need not be immediately CLOSEd. Restriction: internally 
a <Fll.E-LI NGTH input > is done, which must succeed; thus FILECOPY might lose if input is a "NET" 
CHANNEL. 


11.7.7. RESEI 

<RFSCT channel > 

returns channel, after "resetting" it. Resetting a CHANNEL is like OPENing it afresh, with only the file- 
name slots preserved. For an input CHANNEL, this means emptying all input buffers and, if it is a 
CHANNEL to a file, doing an ACCESS to 0 on it. For an output CHANNEL, this means returning to the 
beginning of the file -- which implies, if the mode is not "PRINTO", destroying any output done to 
it so far. If the opening fails (for example, if the mode slot of channel says input, and if the file 
specified in its real-name slots does not exist). RESET (like OPEN) returns #FALSE ( reasomstring file- 
spec .-stems status:fix ) . 


11.7.8. BUFOUT 

< BUI Oil T out put channel) 

causes all internal ML>L buffers for output to be written out and returns its argument. This is 
helpful if the operating system or MDL is flaky and you want to attempt to minimize your losses. 
The output may be padded with up to four extra spaces, if output's mode is "PRINT". 


11.7.9. RENAME 

RENAME is for renaming and deleting files. It takes three kinds of arguments: 

(a) two file names, in either single- or multi-STRING format, separated by the ATOM TO, 

(b) one file name in either format, or 
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(cl u CHANNEL ami a file name in either format (only in the ITS version). 

Omitted ■ ilr-tiatm- part*, use me same values by default as does OPEN. If the operation is successful, 

RENAME leiiirns I, otherwise »IALSE (rcitson.slrmj st»lus:(ix) . 

In case tat the file specified by the first argument is renamed to the second argument. For example: 

<IU NAME "FGO 3“ TO "dAR" > ;"Renanie F00 3 to BAR >.' 

In case (Id the single file name specifies a file to be deleted. For example: 

<RENAMI "F00 TOO DSK : HARRY ; *> ;"Delete file F00 FOO from 

HARRY'S directory." 

In case (c) the CIIANNI I must he open in either "PRINT" or "PRINTB" mode, and a mu me while open 
for writing is attempted. The real-name slots in the CHANNEL are updated to reflect any successful 
change. 


11.8. Ter m i tt a l_C.lt Aid IL Ls 

MDL hel laves life the ITS version of the text editor Teeo with respect to typing in carriage-return, 
in that n automatic. illy adds a line-feed. In order to type in a lone carriage-return, a carriage-return 
follower by a rubout must be typed. Also PRINT, PRIN1 and PRINC do not automatically add a line- 
feed when a carriage-return is output. This enables overstriking on a terminal that lacks 
backspacing capability. It also means that what goes on a terminal and what goes in a file are 
more likely to look the same. 

In the ITS version. Mill ’s primary terminal output channel (usually .OUTCHAN) is normally not in 
"display" mode, except when PRINCing a STRING. Thus errors will rarely occur when a user is 
typing in text containing display-mode control codes. 

In the ITS version. Mill, ran start up without a terminal, give control of the terminal away to an 
inferior opeialing-systein ptocess or get it back while running. Doing a RESET on cither of the 
terminal channels causes MDL to find out if it now has the terminal; if it does, the terminal is 
rcoprmd and the current screen size and device parameters are updated. If it doesn't have the 
terminal, an internal flag is set. causing output to the terminal to be ignored and attempted input 
from the terminal to make the opera, .ng-system process go to sleep. 

In the . ,S vr, >u. tin. arc some p.«uliarities associated with pseudo-terminals ("STY" and "Sin" 
devices). If the t'HANNI I given to Rl I'DCIIR is open in "READ" mode to a pseudo-terminal, and if no 
input is as..ii.ible. RI AtiCHR ..turns ., TYPl FIX. If the CHANNEL given to READSTRING is open in 
"READ" mode to a psendo-tvi initial, reeding *«\« stops if and when no more characters are available, 
that is. when RCADC-IIR would return -1. 
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11.8.1. ECHOPAIR 

<ECH0PA1R terminal -i nxhjnnel terminal-outichannel > 

returns its first aigunieiit, aft;'r making the two CHANNELS "know about each other" so that rubout, 
~3, ami ■*!. mi !■■■ mmal-in will cause the appropriate output on terminal-out. 


11.8,2. TTYrillO 

<TTY£CHO terminal-input. -channel precT> 

turns the echoing of typed characters on channel off or on, according to whether or not pred is of 
TYPE E AIM. , and returns channel. It is useful in conjunction with TYI (below) for a program that 
wanis to do character input and echoing in its own fashion. 


11.8.3. TYI 


< TYI terminal- input :channel> 

returns one CHARACTER front channel (optional. .INCHAN by default) when it is typed, rather than 
after S (ESCi is typed, as is the case with READCHR. The following example echos input characters 
as their ASCII values, until a carriage-return is typed: 

'REPEAT ((F00 <TTYECHO .INCHAN <»)) 

<AND < = = ? 13 <PRINC < ASCI I <TYI .INCHAN»» 

< RETURN <TTYECHO .INCHAN T»» 


11.9. Internal CHANN ELS 

If the device specified in an OPEN is *'INT", a CHANNEL is created which does not refer to any I/O 
device outside MDL. In this case, the mode must be “READ" or "PRINT", and there is another 
argument, which must he a function. 

For a "READ" CHANNEL, the function must take no arguments. Whenever a CHARACTER is desired 
from this CHANNEL, the function will be applied to no arguments and must return a CHARACTER. 
This will occur once per call to READCHR using this CHANNEL, and several times per call to READ. In 
the ITS version. Hie function ran signal that its "end-of-file" has been reached by returning <CHTYPE 
*777777000003* CI1ARAC 1 FR> (-1 in left half. control-C in right), which is the standard ITS end-of- 
file signal. In the Tcncx and Tops-20 versions, the function should return either that or <CHTYPE 
*777777000032* CHARACTER) (-1 and control-Z), the latter being their standard end-of-file signal. 
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For a "PR IN I" CIIANNI l , the function mutt take one argument, which will be a CHARACTER. It can 
dispose of its argument in any way it pirates. The value returned by the function it ignored. 

Example: < 01*1 N "PRINT" " IWT : ■ ,FCN> opens an internal output CHANNEL with ,FCN as its 
character-gobbler. 


11.10. The "Ni I" Device: the ARI’A Network 

The "Nit" device i' dilfeicut hi many ways from conventional devices. In the ITS version, it is 
the only device besides "INI" that does not take all strings as its arguments to OPEN, and it must 
take an additional optional argument to specify the byte sire of the socket. The format of a call to 
open a network socket is 

- OPI N i t{sie:stnng locjl-sorkeHix foreign-socket. -fix "NET" foreign-hosHix byte-$itetfix> 


where: 

nx\ir is the inode of ihr desired CHANNrt. This must be either "READ", "PRINT", "REAOB" or 
"PR1NIB" . 

/<xv/-‘.ovAef is the local socket number. If it is -1, the operating system will generate a unique 
local socket number. If it is not. in the Tenex and Tops-20 versions, the socket number is 
"fork -relative". 

foreign socket is the foreign socket number. If it is -1, this is an OPEN for "listening". 

torciy.n lie-.! is ihe foreign host number. If it is an OPEN for listening, this argument is ignored. 

6 \/< re is the optional byte si/e. For "READ" or "PRINT* this must be either 7 (used by 

default) or P > . For "Rl AOB" or "PR1NIB", it can be any integer from 1 to 36 (used by default). 

In the Tciicn and Tops-20 versions. OPEN can instead be given a STRING argument of the form 
"NF I : . . . " . In this * asc || I( > local socket number can be "directory-relative*. 

Like any ntlm OPI II. either a CHANNEL or a FALSE is returned. Once open, a network CHANNEL can 
be used like any other CHANNEL . except that riLE-LENGTH. ACCESS. RENAME, etc., cannot be done. 
The "argument" inst-nauie. second-name, and directory-name slots in the CHANNEL are used for local 
socket, foreign soviet, and foreign host (as specified in the call to OPEN), respectively. The 
corresponding "teal slots ate used somewhat differently. If a channel is OPFNed with local socket 

-1, the teal first-name slot will contain the unique socket number generated by the operating 

system. If a listening socket is OPI Ned. the foreign socket and host numbers of the answering host 
are stored in the "teal" second-name and directory-name slots of the CHANNEL when the Request For 
Connection is received 
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( An intei i i«|*t (chapter 21) can be associated with a "NET "-dev ice CHANNEL, so that a program will 
know that the CHANNEL has or needs data, according to its mode. 

* 

There also exist several special-purpose SUBRs for the “NET" device. These are described next. 

II.IO.I. HE IS?/. If 

< NE IS I ATE networhxhanneiy 

i 

returns a UVF.CIOK of three FIXes. The first is the state of the connection, the second is a code 
specifying why a connection was closed, and the last is the number of bits available on the 
connection lor input. The meaning of the state and close codes are installation-dependent and so 
are not included here. 


11.10.2. NE 1 ACC 

< Nb 1 ACC nctwor kxhannel > 

accepts a connection to a socket that is open for listening and returns its argument. It will return a 
FALSE if the connection is in the wrong state. 




1 1.10.3. NETS 


< Hi IS net :vorl xhanncl) 


returns its aigumeut. after forcing any system-buffered network output to be sent. ITS normally 
does this evn v half second anyway. Tenex and Tops-20 do not do it unless and until NETS is called. 
NETS is similar to DUKOUT for normal CHANNELS, except that even operating-system buffers are 
emptied now 
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Chapter 12. Locatives 

There is in MDI a facility for obtaining and working directly with objects which roughly 
correspond to "pointers" in assembly language or "Ivals" in BCPL or PAL. In MDL. these are 
genet ically I nou n as l ocatives (from "location") and are of several TYPES, as mentioned below. 
Locatives exist to provide efficient means for altering structures: direct replacement as opposed to 
re-copying. 

Locatives always irfri to elements in structures. It is not possible to obtain a locative to something 
(for example, an AIO.'II which is not part of any structure. It is possible to obtain a locative to any 
element in any stmciuicd object in MDL -- even to associations (chapter 13) and to the values of 
ATOMs. structurings which aic normally "hidden". 

In the following, the object occupying the structured position to which you have obtained a locative 
will he referred to as the object pointed t_o by the locative. 


12.1. Obta i m in ; l o ca 1 1 yes 


12.1.1. HOC 

<1100 Mom «?ri '> 

returns a locative (IYI’1 LOCO, "locative to iDentif ier") to the LVAL of atom in env. If atom is not 
bound in mi an error occurs, env is optional, with the current ENVIRONMENT used by default. The 
locative letumed bv I t OC is inde pendent of future rc-bindings of atom. That is. IN (see below) of 
that locative will irturn the same thing even if atom is re-bound to something else: SETLOC (see 
below) will affect only that particular binding of atom. 

Since bindings are lept on a stack (tra la), any attempt to use a locative to an LVAL which has 
become unbound will fetch tip an error. (It breaks just like a TUPLE . . . .) LEGAL? can. once again, 
be used to see if a LOOP is valid. Caution: <SET A <LL0C A>> creates a self-reference and can make 
PRINT very unhappy. 




12 • 12 . 1.1 


Locatives 


The MIH Programming l auguage 


117 


12.1.2. GLOC 

sGlOC Mont f'rt'd) 

murns .« locative ( 1 YPI IOCO) to the GVAL of Mom. If Mom has no GVAL sjot, an error occurs, unless 
ived (opt ion a It in given ami not FALSE. in which case a slot is created (chapter 22). Caution: <SETG 
A <GLOC A ' > creates a self reference and can make PRINT very unhappy. 


12.1.3. A1 


<AI ■ tinctured N:ti\-ot -Otfsot) 


returns a localise to the \ r h element in structured. N is optional. 1 by default. The exact TYPE of 
the localis e letui u. .1 depends on the PRINT YPL of structured. LOCI for LIST. LOCV for VECTOR. LOCU 
for UVIl lOK, IO(S for SIRING, 10CB for BYTFS, 10CT for TEMPLATE, and LOCA for TUPLE. If /Vis 
K reatei than sLENGIH structure d> or less than 1. or an OFFSET with a Pattern that doesn’t match 
structure an eiior ocs nrs. The locative is unaffected by applications of REST, BACK, TOP. GROW 
etc. to • tructur ./. 


12.1.4. GLTI'i and GET L 

SGEIPI itcm:.ir>\ uyhcMoi any default :any> 

returns a locative (TYPf (OCASI to the association of item under indicator. (See chapter 13 for 
information about assn, iations.) If no such association exists. GETPL returns EVAL of default, default 
is optional. »» At SI ( ) by default 

GETPL corresponds to GETPROP amongst the association machinery. There also exists GETL, which 
corresponds to (.( I , i etui uing either a LOCAS or a locative to the nx/ica/orth clement of a structured 
item. GEIl I'hkeAl if item is a structure and indicator is a FIX or OFFSET, and like GETPL if not. 


122. LOCAI IVI ? 


This StiltR is a (truncate that tells whether or not its argument is a locative. It is cheaper than 
<HEMQ < PRIM I YPI a-. > ••[(.CKO LOCI ...]>. P 
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12.3. livi ng l ocative* 

The following two SUBRs provide the meant for working with locatives. They are independent of 
the specific TYPr of the locative. The notation locative indicates anything which could be returned 
by LLOC. GLOC. 81, GE1PL or GETL. 


12.3.1. IN 


<1N loratne) 

returns the object to which locative points. The only way you can get an error using IN is when 
lot *h\c points to an LVAL which has become unbound from an ATOM. This is the same as the 
problem in referencing TUPLES as mentioned in section 9.2. and it can be avoided by first testing 
< LEGAL? lo<d>. 

Example*. 


<SET A 1>S 

) 

< IN < LLOC A»S 
1 


12.3.2. SETLOC 


<SE ILOC locative aoy> 


returns am*, after having made any the contents of that position in a structure pointed to by 
locative. The structure itself is not otherwise disturbed. An error occurs if locative is to a non- 
LEGAL? I VAL or if you try to put an object of the wrong TYPE into a PRINTYPE UVECTOR, STRING, 
BYTES, or lEMPlATE. 

Example: 


<SET A (1 2 3»S 
(1 2 3) 

<SrTlOC <AT .A 2> HI>S 

HI 

.AJ 

(1 HI 3) 
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12.4. Noic on Locatives 

Von may have noticed that locatives are, strictly speaking, unnecessary: you can do everything 
locatives allow by appropriate use of, for example. SET, LVAL, PUT, NTH, etc. What locatives 
provide is generality. 

Basically, how you obtained a locative is irrelevant to SETLOC and IN; thus the same program can 
play with CVALs. LVALs. objects in explicit structures, etc., without being bothered by what function 
it should use to do so. This is particularly true with respect to locatives to LVALs: the fact that they 
are independent of changes in binding can save a lot of fooling around with EVAL and 
ENVIRONMENTS. 


12.4 
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Chapter 13. Association (Properties) 

There is an "associative" data storage and retrieval system embedded in MD1 which allows the 
construction of data structures with arbitrary selectors. It is used via the SUBRs described in this 
chapter. 

13.1. Associ a I i ye Jit or age 

13.1.1. PUTPROP 

<PUTPR0P itemiany indicator :any value zany) 

("put property") returns item, having associated value with item under the indicator indicator. 

13.1.2. PUT 

<PUT itenuany indicator :any value:any'> 

| is identical 1 o Pin PROP, except that, if item is structured and indicator is of TYPE FIX or OFFSET, it 
does <SETL0C <AT Hem indicator > valuc>. In other words, an element with an integral selector is 
stored in the structure itself, instead of in association space. PUT (like AT) will get an error if 
indicator is out of range: PUTPROP will not. 

13.1.3. Removing Associations 

If PUTPROP is used wi tho ut its value argument, it removes any association existing between its item 
argument and its indicator argument. If an association did exist, using PUTPROP in this way returns 
the value which was associated. If no association existed, it returns IFALSE (). 

PUT, with arguments which refer to association, can be used in the same way. 

13 - 13.1.3 Association (Properties) 
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If citlirr item or indicator cease lo exist (dial is, no one was pointing to them, so they were garbage- 
collected). and no locatives to the association exist, then the association between them ceases to exist 
(is garbage-collected). 


13.2- A ssociative Retrieval 

13.2.1. GUPKOP 

<GCTPROP itenuany indicator :any exp.any) 

("get property") returns the value associated with item under indicator, if any. If there is no such 
association. C.CIPROP returns EVAL of exp (that is. exp gets EVAled both at call time and later). 

evp is optional. If not given. GCTPROP returns ITAISE ( ) if it cannot return a value. 

Note: item and indicator in GCTPROP must be the same MDL objects used to establish the association; 
that is. they must be = = ? to the objects used by PUTPROP or PUT. 

13.2.2. GET 

< Gt I itenvany indicaforrany cxp:any'> 

is the inverse of PUT, using NTII or GCTPROP depending on the test outlined in section 13.1.2. exp is 
optional and used as in GfTPROP. 


13.3. Exa mples of A ssociation 

<SET L '(1 2 3 4)>J 
( 1234 ) 

< Pll 1 .1. FOO "L Is a 1 1 St . " >S 
(12 3 4) 

<GC T .1 F00>i 
"I. is a list." 

< PU1 PROP .1 3 • ![4]>J 
(1 2 3 4) 

< GET PROP .L 3>S 
![4!] 

<GET .L 3>$ 

3 
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<SET N 0>S 
0 

<PUT .N .L "list on a ztro">S 
0 

<GET .N *(123 4)>S 
Al SE () 

The last example failed because READ generated a new LIST -- not the one which is L’s LVAL. 
However. 

<GE I 0 .OS 
"list on a zero" 

works because <««? .N 0> is true. 

To associate something with the Nth posi tio n in a structure, as opposed to its Nth element, associate 
it with <RCST structure N-l>, as in the following: 

< I’d 1 <RtSl .1 ?> PERCENT 0.3>J 
(3 4) 

<GCT <2 .L> PERCENTS 
H AISI () 

<GE1 <RESI .L ?> PERCENT >S 
0.30000000 

Reinemher comments? 

■a 

<SET N • • L A B C ;"third element" D E]>S 
If A B C 0 El] 

<GF 1 CREST .N ?> COMMENDS 
"third element" 

The ’ in the <SET N ... > is to keep EVAL from generating a new UVECTOR ("Direct 
Representation"), which would not have the comment on it (and which would be a needless 
duplicate). A "top-level” comment -- one attached to the entire object returned by READ -- is PUT on 
the CIIANNT L hi use. since there is no position in any structure for it. If no top-level comment 
follows the ob ject. IU AD removes the value (<PUT channel COMMENT)): so anybody that wants to see a 
top-level comment must look for it after each READ. 

If you need to have a structure with selectors in more than one dimension (for example, a sparse 
matrix that does not deserve to be linearized), associations can be cascaded to achieve the desired 
result. In effect an extra level of association maps two indicators into one. For example, to 
associate valor ssith item under indicator- 1 and indicalor-2 simultaneously: 

<PUIPROP indicator- 1 indicalor-2 T> 

13 3 Association (Properties) 
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<1*111 PROP item < Gl T PL indicMor-1 mdic«lor-2> value') 


IT I Examining A ssorialjons 

Associations (created by PUT and PUTPROP) art’ chained together in a doubly-linked list, internal to 
MDI The order of associations in the chain is their order of creation, newest first. There are 
seveial SI till’s fm examining the chain of associations. ASSOCIATIONS returns the first association 
in the chain, or 'I At Si ( ) if there are none. NEXT takes an association as an argument and returns 
the next association in the chain, or #FALSE ( ) if there are no more. ITEM, INDICATOR and AVALUE 
all take an association as an argument and return the item, indicator and value, respectively. 
Associations print as: 

eASOC (item indicator value) 

(sic: only one S). Example: the following gathers all the existing associations into a LIST. 

< PROG ((A < ASSOCIATIONS)) ) 

<CONI) ( <NOJ . A> '()) 

(1 (.A KMAPF .LIST 

FUNCTION () <C0ND (<SET A <NEXT .A» .A) 

(T <MAPST0P> )>»))>> 


* 
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Chapter 14. Datn-type Declarations 


In Mm . it is possible 10 declare Hie permissible range of "types’ and/or structures that an ATOM’S 
s-ahies or a function's arguments or value may have. This is done using a special TYPE, the DECL 
( declaration ). A DECL is of PRIMTYPE LIST but has a complicated internal structure. DECLs are 
used by the inlrriuclcr In find TYPE errors in function calling and by the compiler to generate more 
efficient code. 

There are two kinds of DECLs. The first kind of OECL is the most common. It is called the ATOM 
DECL and is used most commonly to specify the type/structure of the LVALs of the ATOMs in the 
argument l IS1 of a I UNCI ION or aux LIST of a PROG or REPEAT. This DECL has the form: 

*DECL (a tomsdist Pattern ...) 

where the pairing of a LIST of AlOHs and a "Pattern" can he repeated indefinitely. This declares the 
ATOMs in a /is/ to he of the type/slructure specified in the following Pattern. The special ATOM 
VALUE . if it appears, declares the result of a FUNCTION call or PROG or REPEAT evaluation to satisfy 
the Pallet n specified. An A10M DECL is useful in only one place: immediately following the 
argument 1 1ST of a FUNCTION, PROG or REPEAT. It normally includes ATOMs in the argument LIST 
and ATOMs whose LVALs are otherwise used in the Function body. 

The second kind or 1)1 C| is rarely seen by the casual MDL user, except in appendix 2. It is called 
the RSUBR DECL. It is used to specify the type/structure of the arguments and result of an RSUBR or 
RSUBR-ENTRY (chapter 191. It is of the following form: 

-DE Cl ( "VALUE " Pattern Pattern ...) 

where the STRING "VALUE" precedes the specification of the type/structure of the value of the call to 
the RSUUR, and the remaining Patterns specify the arguments to the RSUBR in order. The full 
specification of ihe RSUBR lit CL will he given in section 14.9. The RSUBR DECL is useful in only 
one place: as an element of an RSUBR or RSUBR-ENTRY. 
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14.1. Patterns 

The simplest pass il/le Pattern is to say that a value is exactly some other object, by giving that 
object, QUOTEd. For example, to declare that a variable is a particular ATOM: 

f’DECL ((X) ’T) 

declares that .X is always the ATOM T. When variables are OECLcd as "being" some other object in 
this way. the test used is =?, and not ==?. The distinction is usually not important, since ATOMS, 
which are most commonly used in this construction, are ==? to each other if *? anyway. 

It is more common to want to specify that a value must be of a given TYPE. This is done with the 
simplest non-specific Pattern, a TYPE name. For example, 

*DECL ((X) rix (Y) FLOAT) 

declares .X to be of TYPE FIX, and ,Y of TYPE FLOAT. In addition to the names of all of the built- 
in and created TYPEs, such as FIX, FLOAT and LIST, a few "compound" type names are allowed: 

ANY allows any TYPF . 

STRUCTURED allows any structured TYPE, such as LIST, VECTOR, FALSE, CHANNEL, etc. 
(appendix 3). 

LOCATIVE allows any locative TYPE, such as are returned by LLOC, GLOC, AT, and so on 
(chapter 12). 

APPLICAIll F allows any applicable TYPE, such as FUNCTION, SUBR, FIX (!), etc. (appendix 3). 

Any other ATOM can be used to stand for a more complex construct, if an association is 
established on that ATOM and the ATOM DECL. A common example is to <PUT NUMBER DECL 
'<OR I IX FI.OAT>> (see below), so that NUMBER can be used as a "compound type name". 

The single TYPE name can be generalized slightly, allowing anything of a given PRIMTYPE, using 
the following construction: 

i»DtCL ((X) <PRIMTYPE WORD) (Y) < PRIMTYPE LIST)) 

This construction consists of a two-element EORM, where the first element is the ATOM PRIMTYPE, 
and the second the name of a primitive type. 

The next step is to specify the elements of a structure. This is done in the simplest way as follows: 

< structurcci-.typc Pattern Pattern ...) 
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where there it a one-to-one correspondence between the Pattern and the elements of the structure. 
For example: 

ADECL ((X) < VECTOR FIX FLOAT>) 

declares .X to hr a VECTOR having at^ least two elements, the first of which is a FIX and the second a 
FLOAT . It is often convenient to allow additional elements, so that only the elements being used in 
the local neighborhood of the OECL need to be declared. To disallow additional elements, a SEGMENT 
is used instead of a TORM (the "cxcl-ed" brackets make it look more emphatic). For example: 

ADECl ((X) KVECTOR FIX FLOAT)) 

declares .X to be a VECTOR having exactly two elements, the first of which is a FIX and the second a 
FLOAT . Note that the Patterns given for elements can be any legal Pattern: 

'DECL ((X) < VECTOR <VECTOR FIX FLOAT)) (Y) «PRIHTYPE LIST) LIST)) 

declares .X to lie a VECTOR containing another VECTOR of at least two elements, and ,Y to be of 
PRIMTYPE LTST, containing a LIST. In the case of a BYTES, the individual elements cannot be 
declared (they must be Fixes anyway), only the site and number of the bytes: 

#DFCL ((B) <BYTES 7 3>) 

declares .0 to be a BYTES with BYTE-SIZE 7 and at least three elements. 

It is possible to say that some number of elements of a structure satisfy a given Pattern (or 
sequence of Patterns). This is called an "NTH construction". 

r number :t ix Pattern Pattern ... ] 

states that the sequence of Patterns which is REST of the VECTOR is repeated the number of times 
given. For example: 

#DECL ((X) <VEC10R [3 FIX] FLOAT) (Y) <LIST [3 FIX FLOAT))) 

.X is declared to contain three TlXes and a FLOAT, perhaps followed by other elements. .Y is 
declared to repeat the sequence FIX-FLOAT three times. Note that there may be more repetitions of 
the sequence in . Y (but not in .X): the DECL specifies only the first six elements. 

For indefinite repetition, the same construction is used. but. instead of the number of repetitions of 
the sequence of Patterns, the ATOM REST is given. This allows any number of repetitions, from zero 
on up. For example: 

rDCCL ((X) < VECTOR [REST FIX)) (Y) (LIST [3 FIX] [REST FIX]) 
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A "REM miiMim non" can contain any number of Patterns, just like an NTH construction: 
eOECl ((X) < VECTOR l REST r IX FLOAT LIST])) 

ileclaies that .X is a VI CIOR wherein the sequence I 1X-T LOAT-L 1ST repeats indefinitely. It docs not 
declatc that \l E HE.III .X> is an even multiple of tin rc: the VECTOR can end at any point. 

A variation on RISE is ON (or OPTIONAL), which i* similar to REST except that the construction is 
scanned once at most instead of indefinitely, and further undeclared elements can follow. For 
example: 


-m ct ( (x) cvrciOR (oim nx]» 

declares that .X is a VECTOR which is empty or whose first element is a FIX. Only a REST 
construction can follow an "OPT construct ion". 

Note that the Rl M constiuciion must always he the last element of the structure declaration, since it 
gives a Cat to n lot the rest of the structure. Thus, the REST construction is diffetent from all others 
in that it has an unlimited tattle No matter Imw many times the Pattern it gives is RISIcd off of 
the stmctuie. the lemaiuder of the structure still has that Pattern. 

This exhausts the possible single Patterns that can he given in a declaration. However, there is also 
a compound Pattern defined It allows specification of several possible Patterns for one value: 

COR r.'ttcm I’Mtcrn ... > 

Any non-compound Pattern can lie included as one of the elements of the compound Pattern. 
Filially, compound Patterns can he used as Patterns for elements of structures, and so on. 

Mtrct ((X) sOR I IX FLOAT > 

(Y) sOR I IX CUVICTOR (REST COR FIX FLOAT)]))) 

The OR const t net ion can he extended to any level of ridiculousness, but the higher the level of 
complexity and compoundcduc" the less likely the compiler will find the OECL useful. 

At the highest level, any Pattern at top level in an A10M DECL can be enclosed in the construction 

< • fv'cia/f \ .atom PMtem > 

which explicitly declares the specialty of the A10lt(s) in the preceding LIST, speoa/fy can be either 
SPEC1AI or UtlSl'l C 1 AT . Specially is important only when the program is to hr compiled. The svord 
comes from the contiol stack, which i' called special in Lisp (Moon, 19/4) because the garbage 
collector finds objects on it and modifies their internal pointers when storage is compacted. (An 
internal stack is used within the interpreter and is not accessible to programs - section 22.1.) in 
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an interpreted program all local values arc initially SPECIAL, because all bindings are pul on Hie 
control Mack (Imi see SPrClAI -MODI below). When the program is compiled, only values declared 
SPEC1AI (which may or may not hr the declaration used by default) remain in bindings on the 
control slack. All oihcrs are taken caie of simply by storing objects on the control stack: the ATOMs 
involved are not needed and arc not created on loading. So. a program dial SETs ail ATOM’s local 
value for another program to pick up must declare that ATOM to be SPECIAL. If it doesn’t, die ATOM’S 
binding will go away during compiling, and the program that needs to refer to Hie ATOM will cither 
get a no- value error or refer to ail etroueous binding. Usually only ATOMs which have the opposite 
specialty from that of the current SPECIAL-MODE are explicitly declared. The usual SPECIAL-NODE is 
UNSPCC1AL. so typically only SPECIAL declarations use this construction: 

ePECL ((ACT) <SPECIAL ACTIVATION)) 
explicitly declares ACI to he SPECIAL . 

Most wrll-wi itten. modular programs gel all their information from their arguments and from 
GVAIs. and thus they rarely use SPECIAL ATOMs. except perhaps for ACTIVATIONS and the ATOMs 
whose IVAIs Mill uses by default: INCIIAN, 0U1CIIAN, OBLIST, DEV, SNM, NM1 , NMZ . OUTCIIAN is 
a special case: the compiler thinks ihat all conversion-output SUBRs are called with an explicit 
CHANNEL argument, whether or not the program being compiled thinks so. For example. <CRLF> is 
compiled as though it were < CRI F .OUTCIIAN). So you may use (or see) die binding (OUTCHAN 
.OLI1CIIAN) in an argument I 1ST, however odd that may appear, because that -- coupled with the 
usual UNSPECIAL declaration by default -* makes only one reference to the current binding of 
OUTCIIAN ami stiitfs the result in a slot on the stack for use within the Function. 



14.2. Exam pies 

"HI Cl ((Q) <0R VECIOR CHANNEL)) 
declares .0 to lie either a VECTOR or a CHANNEL. 

•DLCL ((P 0 R S) <PR1NTYPE LIST)) 
declares .P, Q. ,R. and .S all to be of PRIMTYPE LIST. 

<*PECL ( (E ) <F0l!M [3 ANY])) 

declares ,r to he a FORM whose length is at least three, containing objects of any old TYPE. 

i'DLCL ( (LL ) < < PR III TYPE l 1ST) [4 <LIST [REST FIX])])) 

declares .LI to he of PRIMTYPE LIST, and to have at least four elements, each of which are LIST* of 
unspecifirrl length (possibly empty) containing TlXes. 
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-nit i ((vv) <vmoR i ix aioh character)) 

dedans .VV m In t VITIOR with at least liner elements. Those elements are, in order, of TYPE FIX, 
AIOM. and t'HARAt HR. 

• PI • I ( (I II) <1 1SI AlOII [ RFSI I 10A1 ]>) 

deflates i n to Ur a I 1ST whose first rlriiirnt is an A10I1 and the rest of whose elements are FLOAT*. 
It also sa> s that .III is at least one element long. 

-urn ((too) <i isi (rest m nx|>) 

deflates .1 t'O to lie a | is I whose odd-positioned rlemeiits are the ATOM T and whose even-positioned 
elements ate I 1 Xes 

< MAPI! s > 

<1 till* I IOIJ (X) 

♦1*1 n ((X) fVICIOR l 1 F I X ]> ) 

<l'll| .X I 0>> 

.! OP' 

tleclaies .x to lw a VI t IOR i milaming at least one I IX. The more restrirlive [RLST FIX] wonltl take 
excessive i In 1 1 in>, t tine hv the inlet preter. heeatisc the RIST of the VECTOR would be checked on 
each itnation o| the MAPI?. In this case both PI CIs are equally powerful, because checking the first 
element n| all the III Sis of a stun tine rsenlnally checks all the elenirnts. Also, since the FUNCTION 
refets mils to the litst « lenn-ni o| X, this is as mncli declaiation as the cotnpiler ran effectively use. 
(If this VI t lt'R always lont.iins only riXrs, it should he a UVFCTOR instead, for space efficiency. 
Then a (III SI I IX | PI i I won Id make the interpreter check only the UTYPE. If the FIXcs cover a 
small iinn-negatis e i.inge. then a 11YII S might be even better, with a DFCL of <BYTES n 0>. ) 

sl'l Mill I AC I (N) 

*PI t I ( ( N ) <IIHSP| CIAI I IX>) 

stONIt (sO? . N> 1) (FIST. <* .14 <1 ACT <- .N 1>>>)>> 

declares N to lie of 1YPI I IX ami UNSITCIAI . This specialty declaration ensures that, independent 
of SPFC1AI -IIOUI dining compiling. .14 gets compiled into a fast control-stack reference. 

sPROG (<l (0)) 

♦Ml Cl ((I VAIIII ) <IIHSPrCIAl <L 1ST [REST FIX]» 

(14) <Ht4SPI CIAI I IX>) 

<CO«0 (<0? . I4> <Rt TURN .L>)> 
sSri I (<♦ .N <1 ,l>> ! ,L)> 

<ST I 14 <- .N 1>>> 



T 
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The above declare* L anil N lo be UNSPECIAL, says that .N is a FIX, and says that .L, along with 
the value returned, is a LIST of any length composed entirely of FIXes. 


N.3. The PE CI Syntax 

This seition gives «|ti.isi-IINF productions for the MDL DECL syntax. In the following table MDL 
type-specifiers are distinguished m this way. 


decl ::= 
declprs 
at list ::= 
pattern ::= 
pat ::= 
unit :: = 


struc 

bstruc 

elts 


MifCI (declprs) 

(allisl) pattern | declprs declprs 
atom | atom at list 

pat l CUNSPLCIAL pat> | <5PECIAL pat> 

unit | <0R unit ... unit> 

type I <PRIMTYPE /vpe> | atom | 'any 
| ANY | STRUCTURED | LOCATIVE | APPLICABLE 
| <struc elts) 1 <<0R struc ... struc) elts) 

| Kslruc cits) | !<<0R struc ... struc) cits) 
| <bstruc fix> | <bstruc fix fix> 

| Kbstruc fix fix> 

structurcd-typc | <PRIMTYP£ structured-type > 

BYirS | <PRIMTYPC BYTES) 

pat | pat elts 
I l fix pat ... pat] 

| (ft* pat ... pat] elts 
I [opt pat ... pat] | [RES1 pat ... pat] 

I l opt pat ... pat] [REST pat ... pat] 


opt 


0P1 | OPTIONAL 
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14.4. Good OCCl s 

There are mine rules of lliumb concerning "good" DECLs. A “good" DECL is one that is minimally 
offensive to the DCCL-cliecking mechanism and the compiler, but that gives the maximum amount 
of information. It is simple to state what gives offense to the compiler and DECL-checking 
mechanism: complexity. For example, a large compound DECL like: 

r'DCCL ((X) <0R FIX LIST UVECTOR FALSE >) 

is a DECL that the compiler will find totally useless. It might as well be ANY. The more involved 
the OR, the less information the compiler will find useful in it. For example, if the function takes 
<0R LIST VrciOR HVrCTOR\ maybe you should really say STRUCTURED. Also, a very general DECL 
indicates a very general program, which is not likely to be efficient when compiled (of course there 
is a trade-off hete). Narrowing the DECL to one PR1MTYPE gives a great gain in compiled efficiency, 
to one TYPE still more. 

Another situation to he avoided is the ordinary large DECL, even if it is perfectly straightforward. 
If you have created a structure which has a very specific DECL and is used all over your code, it 
might lie belter as a IIEWTYPE (see below). The advantage of a NEWTYPE over a large explicit DECL is 
twofold. First, the entire structure must be checked only when it is created, that is. CHTYPEd from 
its PR1M1YPF. As a full DECL, it is chrcked completely on entering each function and on each 
reassignment of ATOMs DECLed to be it. Second, the amount of storage saved in the DECLs of 
FUNCTIONS and so on is large, not to mention the effort of typing in and keeping up to date several 
instances of the full DLCL. 


14.5. Global lircts 


14.5.1. GDECL and MANIFEST 

There are two ways to declare GVALs for the DECL-checking mechanism. These are through the 
FSUBR GDECL ("global declaration") and the SUBR MANIFEST. 

< GDI CL Momsdist Pattern ...> 

GDECL allows the type/structure of global values to be declared in much the same way as local 
values. F.xample: 

< GDECL (X) FIX (Y) <L1ST FIX» 

declares ,X to lie a FIX, and ,Y to be a LIST containing at least one FIX. 

<MANIFEST Mom Mom ...> 

« 

J 
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MANIFEST takes as arguments ATOMs whose GVAL* are declared to be constants. It is used most 
commonly to indicate that certain ATOMs are the names of offsets in structures. For example: 

<SE1G X 1> 

< MANIFEST X> 

allows the compiler to confidently open-compile applications of X (getting the first element of a 
structure!, knowing that ,X will not change. Any sort of object can be a MANIFEST value: if it does 
not get embedded in the compiled code, it is included in the RSUBR’s "reference vector", for fast 
access. However, as a general rule, structured objects should not be made MANIFEST: the SETG will 
survive in the compiled version (for the use of new uncompiled programs), but uses of GVAL will 
instead refer to a distinct copy of the object in each RSUBR that does a GVAL. A structured object 
should instead be GOECLed. 

An attempt to SFTG a MANIFFST ATOM will cause an error, unless either 

(1) the ATOM was previously globally unassigned: 

(2) the old value is ==? to the new value: or 

(3) .REDETINE is not FALSE. 


14.5.2. MANIFEST? and UNMANIFEST 


< MANIFEST? atom'} 


returns T if atom is MANIFEST, #FALSE () otherwise. 

<UNMANIFE ST atom atom ...> 

removes the MANIFEST of the global value of each of its arguments so that the value can be changed. 


14.5.3. GDOUND? 


< GROUND? atom > 

("globally bound?") returns T if atom has a global value slot (that is. if it has ever been SETGed, 
MANIFEST, GDECLcd, or GLOCcd (chapter 12) with a true second argument). #FALSE ( ) otherwise. 
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116 Nl WTY Pf ta ga in) 

NEWTYPL gives the programmer another way to DECL objects. The third (and optional) argument of 
NEWTYPL is a QUOTEd 1’altcrii. If given, it will be saved as the value of an association (chapter 13) 
using the name of the NEWIYPE as the item and the ATOM OCCL as the indicator, and it will be used to 
check any object that is about to lie CIITYPEd to the NEWTYPE. For example: 

<nrwTYPr complex-number vector '«primtype vector> float float» 

creates a new 1YPI . with its first two elements declared to be FLOATS. If later someone types: 

-COMPI TX-NUMBFR [1.0 2] 

an error will result (the second element is not a FLOAT). The Pattern can be replaced by doing 
another NEWTYPL for the same TYPE, or by putting a new value in the association. Further 
examples: 


<NEWI YPE 100 LIST *«PRIMIYPE LIST) FIX FLOAT [REST ATOM])) 
causes TOCs to contain a TIX and a FLOAT and any number of ATOMs. 

<NEWJYPE BAR LIST) 

< SI. 1 A •‘BAR (JBAR () 1 1.2 GRITCH)) 

< NEWT YPE BAR LIST 'CCPRIMTYPE LIST) BAR [REST FIX FLOAT ATOM])) 

This is an example of a recursively DrClcd TYPE. Note that <1 .A) docs not satisfy the DECL, 
because it is empty, but it was CHTYPFd before the DECL was associated with BAR. Now. even 
<CHTYPE <1 .A) < T YPE <1 .A>>> will cause an error. 

In each of these examples, the <<PKJMTYPr ...) ...) construction was used, in order to permit 
CHTYPEing an ob ject into itself. See what happens otherwise: 

<Nl WTYPE OOPS LIST ’<LIST ATOM FLOAT))* 

OOPS 

<SET A <CH1 YPE (E 2.71B28) 00PS»S 
rOOPS (E 2.71828) 

Now < CM 1 YPt .A OOPS) will cause an error. Unfortunately, you must 

< CUT YPE < CUT YPE .A LIST) OOPS)* 
rfOOPS (F 2.71828) 
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14.7. Contr olling DEC L Che ckin g 

There are several SllRRs and FSUBRs in MDL that are used to control and interact with the DECL- 
checking mechanism. 


14.7.1. DFCL-CHFCK 

This entire complex checking mechanism can get in the way during debugging. As a result, the 
most commonly used DECL-orirntcd 5UBR is DECL-CHECK. It is used to enable and disable the entire 
DECL-checking mechanism. 

<DECL-CIIECK fahe-or-arty > 

/ 

If its single argument is nou-FALSE, DECL checking is turned on: if it is FALSE, DECL checking is 
turned off. The previous state is returned as a value. If no argument is given, DECL-CHtCK returns 
the current state. In an initial MDL DECL checking is on. 

When DECI checking is on. the DECL of an ATOM is checked each time it is SET, the arguments and 
results of calls to FUNCTIONS. RSUBRs, and RSUBR-ENTRYs are checked, and the values returned by 
PROG and REPEAT are checked. The same is done for SETGs and, in particular, attempts to change 
MANIFEST global values. Attempts to CIITYPE an object to a NEWTYPE (if the NEWTYPE has the 
optional DECL) are also checked. When DECL checking is off, none of these checks is performed. 


14.7.2. SPEC I At -CHECK and SPECIAL-MODE 
<SPECIAL-CMECK fahe-or-any > 

controls whether or not SPECIAL checking is performed at run time by the interpreter. It is initially 
off. Failure to declare an ATOM to be SPECIAL when it should be will produce buggy compiled code. 

<SPECIAL-I10DE s P ecialty:atom> 

sets the declaration used by default (for ATOMs not declared either way) and returns the previous such 
declaration, or the current such declaration if no argument is given. The initial declaration used by 
default is UNSPECIAI . 


14.7.3. GET-DECL and PUT-DECL 

GET-DECL and PUI-DI Cl are used to examine and change the current DECL (of either the global or 
the local value) of an ATOM. 

<GET-0rCL locd> 
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return* tlir PI Cl Pattern (if any. otherwise irALSC ( )) associated with the global or local value slot 
of an AlOtt. For example: 

<PROG (X) 

enrci (<x) <o« nx riOAT>) 

(GEI-DECL <UOC X» 

...> 

would return COR I IX 1 1 0A1 > as the rcstilt of the application of GET-OECL. Note that because of 
the use of HOC for GIOC , for global values) the A10M being examined must be bound: otherwise you 
will get an nrnr! This can be gotten around by testing first with BOUND? (or GB0UND7, or by giving 
GLOC a second argument which is not I AlSl). 

If the slot being examined is the global slot and the value is MANIFEST, then the ATOM MANIFEST it 
returned. If the value being examined is not DCCLcd, SFALSE ( ) is returned. 

< PUT -Of CL locd Pattern) 

makes r.<tu>n be the 01 Cl for the value and returns toed. If <DECl-CHECK> is true, the current value 
must satisfy the new Pattern. PUI-DFCL is normally used in debugging, to change the DECL of an 
object to correspond to changes in the program. Note that it is not legal to PUT-DECl a "Pattern" of 
MANirrSl or er Al sr ( ). 


14.7.4. DECL? 


<1)1 Cl ? any pattern) 

specifically checks any against PAltcni For example: 

<l)Kl ? *fl ? 3] '<VECIOR (REST FIX]»i 
T 

<PCCl ? '( 1 7.0 3.0] '<VECT0R [REST FIX]»S 
LI AI SE () 


14.8. orrsr.i 

An OFFSET is essentially a r IX with a Pattern attached, considered as an APPLICABLE rather than a 
number. An orrsu allows a program to specify the type of structure that its FIX applies to. 
OfFStls, lil c Piets - if used properly can make debugging considerably easier: they will 
eventually also help the compiler generate more efficient code. 


I ‘1.7.3 . H.8 
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The SUCH OF F SC 1 lakes two arguments, a FIX and a Pattern, and returns an object of TYPE and 
PRIMTYPC orrsn . All OFFSET, like a FIX, may be given as an argument to NTH or PUT and may be 
applied to arguments. The only difference is that the STRUCTURED argument must match the 
Pattern contained in the OFFSET, or an error will result. Titus: 


<sr.iG roo <orrsET 1 '<ciiannel fix»>s 
xcorrsri 1 '< channel fix» 

<FOO .ItJCHAN>S 
i 

<roo <ROOT »s 

•ERROR* 

ARC-WROtlG-TYPt 

NTH 

l ISICHlHG-AT-t EVCL 2 PROCESS 1 

Note: when the compiler gets around to understanding OFFSETS, it will not do the right thing with 
them unless they arc MANIFEST. Since there's no good reason not to MANIFEST them, this isn't a 
problem. 

The SUBR INDEX, given an OFFSET, returns its FIX: 

< ini>{ x ,roo>s 

1 

GET-DECL of an OfTSET returns the associated Pattern: PUT-DECL of an OFFSET and a Pattern returns 
a new orrsi 1 with the same INDEX as the argument, but with a new Pattern: 

< GET-DECl ,FOO>S 
< CHANNEL FIX> 

<Ptil-DITl ,1 00 OBI ISOS 
XCOIFSEI 1 OBLISI > 

.roos 

X<0rrSET 1 '< CHANNEL FIX» 

An OFFSET is not a structured object, as this example should make clear. 




H.9. Th e RSUBR DFCL 

The F..MIBR Dl Cl is similar to the ATOM DECL, except that the declarations are of argument positions 
att'j value rafhri than of specific ATOMs. Patterns can be preceded by STRINGS which further 
describe the argument (or value). 


IT.8 - 14.9 


Data-type Declarations 


The MD1. Programming l anguage 


IS7 


The .simplest RSUUK OGCt. is for ail RSUBR or RSUBR-ENTRY (chapter 19) which has all of its 
arguments evaluated and returns a OFCLcd value. For example: 

.'PCCL ("VALUE" riX FIX FLOAT) 

declares that there are two arguments, a FIX and a FLOAT, and a result which is a FIX. While the 
STRING "VALUE" is not constrained to appear at the front of the DECL, it does appear there by 
custom. It need not appear at all. if the result is not to be declared, but (again by custom) in this 
case it is usually declared ANY. 

If any arguments are optional, the STRING "OPTIONAL* (or "OPT") is placed before the Pattern for 
the first optional argument: 

f>DECL ("VALUE* FIX FIX "OPTIONAL" FLOAT) 

If any of the arguments is not to be evaluated, it is preceded by the STRING "QUOTE": 

#DECL ("VALUE" FIX "QUOTE" FORM) 

declares one argument, which is not EVALed. 

If the arguments are to be evaluated and gathered into a TUPLE, the Pattern for it is preceded by 
the STRING "TUPLE": 

•DECL ("VALUE* FIX "1UPLE" <TUPLE [REST FIX]>) 

If the arguments are to be nucvaluated and gathered into a LIST, or if the calling FORM is the only 
"argument", the Pattern is preceded hy flic appropriate STRING: 

#DECL ("VALUE" FIX "ARGS" LIST) 

eniCL ("VALUE" TIX "CALL" <PRIMTYPE LIST>) 

In every case the special indicator STRING is followed by a Pattern which describes the argument, 
even though it may sometimes produce fairly ludicrous results, since the Pattern for "TUPLE" alway* 
must be a TUPLE; for "ARGS", a LIST; and for "CALL", a FORM or SEGMENT. 
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Chapter 15. Lexical Blocking 


Lexical, nr Mafic. blocking is another means of preventing identifier collisions in MDL. (The first 
was dynamic blocking - binding and ENVIRONMENTS.) Dy using a subset of the MDL lexical 
blocking facilities, the "block structure" of such languages as Algol, PL/1, SAIL, etc., can be 
simulated, should you wish to do so. 


15.1. Ba sic Cons iderations 

Since what follows appears to be rather complex, a short discussion of the basic problem lexical 
blocking solves and MDL's basic solution will be given first. 

ATOMs are identifiers. It is thus essential that whenever you type an ATOM, READ should respond 
with the it it i<|tii* identifier you wish to designate. The problem is that it is unreasonable to expect 
the PNAMts of all AIOIls m he unique. When you use an ATOM A in a program, do you mean the A 
you typed two minutes ago, the A you used in another one of your programs, or the A used by some 
library program? 

Dynamic blocking (pushing down of LVALs) solves many such problems. Hosvever, there are some 
which it does not solve - such as state variables (whether impure or pure). Major problems with a 
system having only dynamic blocking usually arise only when attempts are made to share large 
numbers of significant programs among many people. 

The solution usrd in MDI is basically as follows: READ must maintain at least one table of ATOMS to 
guarantee any uniqueness.. So. MDL allows many such tables and makes it easy for the user to 
specify which one is wanted. Such a table is an object of TYPE OBLIST ("object list"). All the 
complication which follows arises nut of a desire to provide a powerful, easily used method of 
working with (Till IS Is. with reasonable values used by default. 


15 • 15.1 


Lexical Blocking 


The MDI. Programming I anguage 


IS9 


15.2. polish 

An 0BLIS1 is of PRUITYPt UVLC10R with UTYPE LIST; the LIST* hold ATOM*. (The ATOM* are ordered 
by a hash ending on their PNAMEs: each LIST i* a hashing bucket.) What follow* is information 
about OIM IS H as Mich. 


15.2.1. ORLIST Names 

Every normally coustitutrri OIU 1ST ha* a name. The uaine of an OBLIST is an ATOM associated with 
the OBLIST under the indicator 0UL1ST. Thu*. 

<GUPROP o/»/»s I 0BLIST> 

or 

<t;ri ohhr.t OIU.) ST > 
return* the name of a bint. 

Similarly, evrry name of an OBLIST i* associated with its OBLIST, again under the indicator 
OBLIST. so that 

< GET PROP oblist-iumeutom OBLIST) 

or 

<G.n ohli$t-tuune:*tom OBLIST) 
returns the OBLIST whose name is oblist-rutme. 

Since there is nothing special about the association of OBLISTs and their name*, the name of an 
OBLIST can he changed by use of PUT PROP , both on the OBLIST and its name. It i* not wise to 
change t he 0BL1S1 association without changing the name association, since you are likely to 
confuse RLAD and PRINT terribly. 

Von can also use PHI or PUT PROP to remove the association between an OBLIST and its name 
completely. If you want the OBLIST to go away (be garbage collected), and you want to keep it* 
name around, this must he done: otherwise the association will force it to stay, even if there are no 
other references to it. (If you have no references to cither the name or the OBLIST (an ATOM - 
including a TYPl name -• points to its OBI 1ST), both of them -• and their association — will go away 
without your having to remove t he association, of course.) It is not recommended that you remove 
the name of an OBLIST without having it go away, since then ATOM* in that OBLIST will PRINT the 
same as if they were in no OBI 1ST - which is defeating the purpose of this whole exercise. 


15.2 • 15.2.1 
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15.2.2. MOBL1S1 

<MOBLIST atom fix > 

("make "Wist") creates and returns a new OBLIST, containing no ATOM*, whose name is Mom. unless 
there already exists an OBLIST of that name, in which case it returns the existing OBLIST. fix is the 
size of the OR| 1ST created - the number of hashing buckets, fix is optional (ignored if the OBLIST 
already exists), 13 by default. If specified, fix should be a prime number, since that allows the 
hashing to work better. 


15.2.3. OBLIST? 

< OBLIST? Mom> 

returns *T Al SF ( ) if Mom is not in any OBLIST. If Mom is in an OBLIST. it returns that OBLIST. 


15.3. RF AD and OBI IS Is 

READ can be explicitly told to look up an ATOM in a particular OBLIST by giving the ATOM a trailer. 
A trailer consists or the characters !- (cxclaiuation-point dash) following the ATOM, immediately 
followed by tbe name of the OBLIST. For example, 

A! -OB 

specifies the unique ATOM of PNAHE A which is in the OBLIST whose name is the ATOM OB. 

Note that the name of the OBLIST must follow the !- with no separators (like space, tab. carriage- 
return. etc.). There is a name used by default (section 15.5) which types out and is typed in as 
! -separator. 

Trailers can be used recursively: 

B! -A! -OB 

specifies the unique ATOM of PNAME B which is in the OBLIST whose name is the unique ATOM of 
PNAME A which is in the OBLIST whose name is OB. (Whew!) The repetition is terminated via the 
look-up and insertion described below. 

If an ATOM with a given PNAME is not found in the OBLIST specified by a trailer, a new ATOM with 
that PNAME is created and inserted into that OBLIST. 




If an OBLIST whose name is given in a trailer does not exist, READ creates one. of length 13 buckets. 

15.2.2-15.3 Lexical Blocking 
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If trailer notation is not turd (the "normal" case), and for an ATOM that terminates a trailer. READ 
looks up the I’NAMI of the ATOM in a LIST of OBLISTs, the LVAL of the ATOM OBLIST by default. This 
look-up starts with <1 .OBl lST) and continues until .OBLIST is exhausted. If the ATOM is not 
found. REAP usually inserts it into <1 .OBLIST). (It is possible to force READ to use a different 
element of the LIST of OBLISTs for new insertions. If the ATOM DEFAULT is in that LIST, the 
OBLIST following that ATOM will be used.) 


15.4. P RIM I and 0111 I. Sis 

When PRINT is given an ATOM to output, it outputs as little of the trailer as is necessary to specify 
the ATOM uniquely to REAP. That is. if the ATOM is the fjrst ATOM of that PNAME which READ would 
find in its normal look-up in the current .OBLIST, no trailer is output. Otherwise, !- is output and 
the name of the OBLIST is recursively PRINled. 


Warning: there are obscure cases, which do not occur in normal practice, for which the PRINT trailer 
recursion dors not terminate. For instance, if an ATOM must have a trailer printed, and the name of 
the OBLIST is an ATOM in that very same OBLIST, death. Any similar circular case will also give 
PRINT a hernia. 


15.5. Initial State 


In an initial MIX.. .OBLIST contains two OBLISTs. <1 .OBLIST) initially contains no ATOMs. and <2 
.OBLIST) contains all the ATOMs whose GVALs are SUBRs or FSUBRs. as well as OBLIST, DEFAULT, T, 
etc. It is dilfirult to lose track of the latter: the specific trailer ! -separator will always cause 
reference to that OBI 1ST. In addition, the SUBR ROOT, which takes no arguments, always returns 
that OBLIST. 

The name of <R00D is ROOT ; this ATOM is in (ROOT) and would cause infinite PRINT recursion were 
it not for the use of ! -separator. The name of the initial <1 .OBLIST) is INITIAL (really 
INITIAL!- ). 

The ATOM OBLIST also has a OVAL. .OBLIST is initially the same as .OBLIST; however. .OBLIST is 
not affected by the SUBRs used to manipulate the OBLIST structure. It is instead used only when 
errors occur. 

In the case of an error, the current .OBLIST is checked to see if it is "reasonable" - that is. contains 
nothing of the wrong TYPE. (It is reasonable, but not standard, for .OBLIST to be a single OBLIST 
instead of a LIST of them.) If it is reasonable, that value stays current. Otherwise. OBLIST is SET to 
.OBLIST. Note that changes made to the OBLISTs on .OBLIST -- for example, new ATOMs added -- 
remain. If even .OBLIST is unreasonable. OBLIST is SET and SETGed to its initial value. <ERRET> 
(section 16. 1) always assumes that .OBLIST is unreasonable. 
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Three other OBI 1SI» exist in a virgin MDL: their names and purpose* are as follows: 

ERRORS! - contains ATOtls whose PNAMEs are used as error messages. It is returned by < ERRORS). 

IN I ERROR IS ! - is used by the interrupt system (section *1.5.1), It is returned by 
<INTERRUPIS>. 

HOOOII is useil infrequently by the interpreter when loading compiled programs to fix up 
references to locations within the interpreter. 

The pre-loading of compiled programs may create other OBLISTs iu an initialited MDL (Lebline. 
1 * 79 ). / * 

15.6. B l OCR and I Ultlll OCK 

These SUBRs are .ntalogniis to beg in and end in Algol, etc., in the way they manipulate static 
blocking (and in no other way). 

<Bt OCR Icok-up.-lisl-of-oblisls > 

returns its argument after "pushing* the current LVAL of the ATOM OBLIST and making its argument 
the current I VAI . ^ on usually want <ROOT> to be an element of look-up, normally its last. 

<rNOBlOCK> 

pops the LVAL of the A ION 0BLIS1 and returns the resultant LIST of OBLISTs. 

Note that this pushing and "popping" of .OBLIST is entirely independent of functional 
application, binding, etc. 


15.7. Stl l’.R 'Assoc in ted \y it h lexical niockinc 


15.7.1. Rl AP (again) 

<RfA0 channel cot-rouhnc look-up') 

This is a fuller call to RfAH. look-up is an OBLIST or a LIST of them, used as stated in section I5.J 
to look up A I Otis and insert them iu OBLISTs. If it is not specified. .OBLIST is used. See also 
sections II. 1.1. 1. II. 5. and 17.1.3 for other arguments. 
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15.7.2. PARSE ami L PARSE (again) 

< PARSE shin ; r rxinefix look-up > 

at was previously mentioned, applies READ'S algorithm to string and returns the first MDL object 
resulting. This includes looking up prospective ATOMs on look-up, if given, or .OBLIST. LPARSE can 
be called in the same way. See also sections 7.6.B.2 and I7.I.S for other arguments. 

15.7.3. IOOMIP 

CLOOUJP stung obiist > 

returns the A10.M of PNAMI slnng in the OBLIST obiist, if there is such an ATOH; otherwise, it returns 
#FALSE ( ) . If string would PARSE into an A10M anyway. LOOKUP is faster, although it looks in only 
one OBLIST instead of a LIST of them. 


15. 4. ATOM 

sATOH string > 

creates and returns a spanking new A10M of PNAHE string which is guaranteed not to be on any 
OBLIST. 

An A10M which is not on any OBLIST is PRINTcd with a trailer of !-#FALSE ( ). 


15.7.5. Rl MOV! 


< REMOVE slung obiist > 


removes the ATOM of PNAMT string from obiist and returns that ATOM. If there is no such ATOH, 
REMOVE returns *FAISE ( ). Also. 
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create. ...» ATOM of PMAHr string, inserts it into obtist and returns it. If there is already an ATOM with 
a> ■ ,ta - — — — «•> •• 


<OR < LOOKUP * trine. obi,sf> < INSERT string ob/ist» 

OGl'tst* I,4SFR | can ali0 ,aFf an ATOM as its first argument: this ATOM must not be on any 

OOLISI - „ |„vr >,cc„ REMOVE d. or j,,„ croted b, ATOM - «l„ „, M Mcu „ T ,“ 

"".. r LT<msE " jz " inr* "" ‘ iob " ,e oBtisr ,e «> *”“« 


15.7.7. PMAHi 


< PMAMt »tom> 


PNAMP ,1 } ’ CrP ‘ VCd) Which is a ' om ’ s PNAMF (’printed name*). If trailers are not needed 

PRrwr 'l ""'V faMer UHPARSE * tom - <*» fac ‘ UNPARSE has to go all the way through the 
INT algorithm twice, the first time to see how long a STRING is needed.) * 8 


15.7.8. SPNANE 


SPNAMf ("shared printed name*) i, identical to PNAME , except that the STRING it returns shares 

....o iz Vi * "" s,r, " c wm ■* -»««*-• 


j5.8. Pxa ji.pk^Anolhcr Soliiiioii to i| lf me Problem 


av a Ha Ido” ,< a tnn* * T™ 0 * ° f 001 ISTs are *Wnully« used to provide “externally 

. . « ,v au <Kal AT ® Hs which are not so readily available externally. Lebline (1979) 

describes a systematic way to accomplish the same thing and more. * 8 


<MOBUS! 1NC0 1> 

; "Create an ObtlST to hold your external symbols. 
Its name is INCO! -INITIAL! - .• 


INCI-1MC0 

;"Put your external symbols into that OBLIST. 

If you have many, just write them successively." 
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<BLOCK ( <M0BL1ST INCI! -INCO 1> <GET 1NC0 0BLIST> <R00T>)> 

;"Creale a local OBLIST, naming It INCII-INCO, and set up .OBLIST for 
roadinq in your program. The OBLIST INCO is Included In the BLOCK so 
that as your external symbols are used, they will be found in the 
right place. Note that the ATOM INCO is not in any OBLIST of the 
BLOCK; therefore, trailer notation of l-INCO will not work within the 
current BLOCK -FNDBLOCK pair." 

< DEFINE INC ; "INC is found in the INCO OBLIST." 

(A) ;"A is not found and is therefore put into INCI by READ." 

fllFCL ((VALUE A) <0R FIX F10AT>) 

<SET .A <♦ ..A 1>>> ;"Al 1 other ATOMs are found in the ROOT." 
<ENOBLOCK> 

This example is rather trivial, hut it contains all the issues, of which there are three. 

The first idea is that you should create two OBLISTs. one to hold ATOMs which are to be known to 
other users (INCO). and the other to hold internal ATOMs which are not normally of interest to others 
(INCI). The case above has one ATOM in each category. 

Second. INCO is explicitly used with out trailers so that surrounding BLOCKS and ENDBLOCKs will have 
an effect on it. Thus INCO will he in the OBLIST desired by the user: INC will be in INCO, and the 
user can refer to it by saying INC! -INCO; INCI will also be in INCO, and can be referred to in the 
same wav: finally. A is really A! -INCI! -INCO. The point of all this is to structure the nesting of 
OBLISTs/ 

Finally, if for some reason (like saving storage space) you wish to throw INCI away, you can follow 
the ENDBLOCK with 


< REMOVE "INCI" <GET INCO OBLIST» 

and thus remove all references to it. The ability to do such pruning is one reason for structuring 
OBLIST references. 

Note that, even after removing INCI, you can "get A back" - that is. be able to type it in — by 
saying something of the form 

< INSERT <1 <1 , INC! -INCO» <1 .OBLIST» 

thereby grabbing A out of the structure of INC and rc-inserting it into an OBLIST. However, this 
resurrects the name collision caused by <INC!-INC0 A>. 


15.8 
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Chapter 16. Errors, Frames, etc. 


16.1. LISTEN 


This SUBR Jakes any number of arguments. It first checks the LVALs of INCHAN, OUTCHAN, and 
OBLIST for reasonability and terminal usability. In each case, if the value is unreasonable, the ATOM 
is rebound to the corresponding GVAL, if reasonable, or to an invented reasonable value. LISTEN 
then does <TTYECHO .INDIAN T> and <ECH0PAIR .INCHAN ,OUTCHAN>. Next, it PRINT* its 
arguments, then PR INIs 

LISTENING-AT-LEVEL / PROCESS p 

where / is an integer (FIX) which is incremented each time LISTEN is called recursively, and p is an 
integer identifying the PROCESS (chapter 20) in which the LISTEN was EVALed. LISTEN then doe* 
<APPLY < VALUE REP». if there is one. and if it is APPLICABLE. If not. it applies the SUBR REP 
(without making a new I RAMI - see below). This SUBR drops into an infinite READ-EVAL-PRINT loop, 
which can be left via ERRET (section 16.4). 

The standard LISTTN loop has two features for getting a handle on objects that you have typed in 
and MDL has typed out. If the ATOM L-INS has a local value that is a LIST, LISTEN will keep 
recent inputs (what READ returns) in it. most recent first. Similarly, if the ATOM L-OUTS has a local 
value that is a LIST. LISTEN will keep recent outputs (what EVAL returns) in it. most recent first. 
The keeping is done before the PRINTing. so that ~S does not defeat its purpose. The user can 
decide how much to keep around by setting the length of each LIST. Even if L-OUTS is not used, 
the atom LAST-OUT is always SET to the last object returned by EVAL in the standard LISTEN loop. 
Example: 


<SET L-INS (NEWEST NEWER NEW)>S 
(NEWEST NEWER NEW) 

.L-INSS 

( .L-INS NEWEST NEWER) 

<SET FOO 69>S 
69 

<SET FIXIT <2 ,L-INS» ;*grab the last Input*! 

<SET FOO 69> 


16 - 16.1 


Error*. Frames, etc. 


The MM. i’rogrammiug Language 


147 


•l-INSS 

(.i-in.s <sct rrxn <2 .l-ins» <set foo 69>) 

<PUI .» IXIJ 3 105>S 
<SE I FOO 1 0 5 > 

<CVAl .FI XI • /S 
I0S 

.l-INSS 

( . L- IMS <EVAl ,FIXIT> <PUT .FIXIT 3 105>) 

.F005 

10S 


16.2. E RROR 

This SUBR is the s.vnic as l ISTEN, except that (I) it generates an interrupt (chapter 21). if enabled, 
and (2) it I'Rlfils *[ RROR* before PRINTing its arguments. 


When any SUBR or ESUBR detects an anomalous condition (for example, its arguments are of the 
wrong TYIT'. it tails ERROR with at least two arguments, including: 

(h an A 1 OH whose I’NAMF describes the problem, normally from the OBLIST ERRORS! - (appendix 

I). 

(21 the ATOM that names the SUBR or ESUBR, and 
(31 any other information of interest. 

and then returns wha tever thr call to ERROR returns . Exception: a few (for example DEFINE) will 
take ftu titer action that depends on the value returned. This non-standard action is specified in the 
error message (fitsi ERROR argument). 


16.3. F RAME (the T YPLI 

A FRAMt is the object placed on a PROCESS’S control stack (chapter 20) whenever a SUBR, FSUBR, 
RSUBR, or RSUI1R-I.N1RY (chapter 19) is applied. (These objects are herein collectively called 
"Subroutines".) It contains information describing what was applied, plus a TUPLE whose elements 
are the arguments to the Subroutine applied. If any of the Subroutine's arguments are to be 
evaluated, they will have been by the time thr TRAME is generated. 

A FRAME is an anomalous TYPE in the following ways: 

(1) It cannot he typed in. It can be generated only by applying a Subroutine. 

(2) It docs not type out in any standard format, but rather as #FRAME followed by the PNAME of 
the Subroutine applied. 
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- 16,3.1. AKf.S 

<ARCS tr mi * > 

( arguments") returns il»r argument TUPIE of trim*. 

16.3.2. FlINCr 

< T lirSC I it,< mr> 

("fund ion") returns il.r A10M whose C/LVAL is being applied in fraw. 


16.3.3. I RAMI (Du- SHIM 
< I RAMI frame > 

return' lire I RAMI 'larked before frame or. if tliere is none, it will generate an error. The oldest 
(lowest) I RAMI that rail br reunited without error lias a MJNCT of TOPLEVEL. If called with no 
arguments. I RAMI leliirns the topmost I RAMI used iu an application of ERROR or LISTEN, which was 
bound by the ininpirlcr to I hr AIOM LIRR\ ! - INURRUPIS (“last wot"). 


16.3. 4. Examples 

Say yon have gotten an error. T on ran now type at l RROR's LISTEN loop and get tilings EVALed. 
For example, 

<rUNCT (I RAMI >>J 
I RROR 

<1 UNCI <1 RAMI <1 RAMI »>S 

Ihr n.imr of- the Sul'i oulmc-\%hi(h-c*llcd-ERROft:*tom 

< ARCS < I RAMf <f RAMI >>>J 

Mw-ar pwmenh-fo the $ut>routinr wluch-t died -[RROMuple 


16 4. I RKI I 

<1 RITE T .on frame) 

This SUIIR (“errot return") (I) causes the cnniiol stack to be stripped down to the level of frame, and 
(2) then returns ar»>. The net result is that the application which generated frame is forced to return 
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^riy. Additional side cf frets that would have happened ill the absence of ail error may not have 
happened. 

The second argument to rRRET is optional, by default the FRAME of the last invocation of ERROR or 
LISTEN. 

If F.RRI I is called with tin arguments, it drops you all the way down to the bottom of the control 
stack — hefoie the level-1 LISTEN loop and then calls LISTEN. As always, LISTEN first ensures that 
MDL is receptive. 

Examples: 

<• 3 <♦ a 1»S 

•I RROR* 

ARG- WRONG -TYPE 
♦ 

i I S IT NIIIG-AT-I CVFL 2 PROCCSS 1 
sARGS < FRAME <1 RAMI »>S 
la 1 ] 

<ERRET S>J ;"This causes the ♦ to return 5." 

!•> ;"finnlly returned by the *" 

Note that when you are in a call to ERROR, the most recent set of bindings is still in effect. This 
means that you can examine values of dummy variables while still in the error state. For example. 

< DEFINE I (A "AUX" (U "a string")) 

'DECL ((VALUE) LIST (A) STRUCTURED (B) SIRING) 

(.B <RFST .A 2>) ;"Return this LIST." >S 
E 

<r '(i)>s a 

"I RROR* 

Otll-OI -BOUNDS 
REST 

E ISTENIMG-AT-LCVEE 2 PROCESS 1 
.AS 
(1) 

.BE 

"a string" 

<1 RRLT ’(!>)> ; "Make the REST return (5)."S 

("a siring" (5)) 
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16.5. RE TRY 

< RE TRY ft •»/*<<■ > 

causes the rnniml Mark to lie stripped down just beyond frtme, and then causes the Subroutine call 
that generated fr.imc to he done again, /ume is optional, by default the FRAME of the last invocation 
of ERROR or LISTEN. RETRY differs from AGAIN in that (I) it is not intended to be used in programs; 
(2) it can retry any old frvme (any Subroutine call), whereas AGAIN requires an ACTIVATION (PROG or 
REPEAI or M ACI"): and (3) if it retries the IVAL of a FORM that makes an ACTIVATION, it will cause 
rebinding in the argument LIST, thus duplicating side effects. 


16.6. UNWIHP 

HNWI NO is an I SOUR that takes two arguments, usually fORMs. It EVALs the first one, and, if the EVAL 
returns normally, the value of the I VAI rail is the value of UNWIND. If. however, during the EVAL a 
lion-local return attempts to return below the UNWIND FRAME in the control slack, the second 
argument is rVAIed. its value is ignored, and the non-local return is completed. The second 
argument is evaluated in the riiviioument that was present when the call to UNWIND was made. This 
facility is useful for cleaning up data liases that are in inconsistent states and for closing 
temporary CHANNELS that may he left around. FIOAD sets up an UNWIND to close its CHANNEL if the 
user attempts to I RRT 1 without finishing the T10AD. Example: 

<PEF INE CHAN AC1 ("AUX" (C <0PIN "READ" "A FILE">)) 

*DECL ((C) COR CHANNEL FALSE > ...) 

< CONO ( .C 

< UNWIND < PROG () ... CCLOSE .C» 

CCLOSE .C»)» 


16.7. C onti ol-(. red 

Typing eontroi r. re., < ASC 1 1 />) at MDL causes it to act just as if an error had occurred in 
whatever was currently being done. Ton can then examine the values of variables as above, 
continue hy applying ERR! I m one argument (which is ignored). RETRY a FRAME lower on the control 
stack, or flush everything by applying LRRLT to no arguments. 
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16.8. Comrol S rs \ 

Typing conlrn|-S ( A S, <ASCII 19>) at MDL causes it to stop what is happening and return to the 
FRAME . LERR\ ! -INTERRUPTS, returning the ATOM T. (In the Tenex and Tops-20 versions. ''O also 
has the same effect.) 


16.9. OVERFLOW 

< OX/l Rl I OW fslsc-or-*ny> 

There is one error that can he disabled: numeric overflow and underflow caused by the arithmetic 
SlIBRs (♦, *, /)■ The SUBR OVERFLOW takes one argument: if it is of TYPE FALSE, 

under/overf low errors are disabled: otherwise they are enabled. The initial state is enabled. 
OVERFLOW returns T or #FALSE (). reflecting the previous state. Calling it with no argument 
returns the current state. 
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Chapter 17. Macro-operations 


17.1. RE AD Macros 


17.1. 1. X and XX 

The tokens X and XX arc interpreted by READ in such a way as to give a “macro" capability to MDL 
similar to l’L/l's. 

Whenever READ encounters a single X - anywhere, at any depth of recursion -• it immediately. 
without looking at the rest of the input, evaluates the object following the X. The result of that 
evaluation is used by READ in place of the object following the X. That is. X means "don’t really 
READ this, use I VAI of it instead." X is often used in files in front of calls to ASCII, BITS (which 
see), etc., although when the FUNCTION is compiled the compiler will do the evaluation if the 
arguments are constant. Also seen is X. INCHAN, read as the CHANNEL in use during LOAD or FLOAD; 
for example, <PUT X.INCIIAN 18 8 > causes succeeding FIXes to be read as octal. 

Whenever READ encounters XX, it likewise immediately evaluates the object following the XX. 
However, it completely ignores the result of that evaluation. Side effects of that evaluation remain, 
of course. 

Example: 


<01 FINE SETUP ( ) <SET A 0>>J 
SETUP 

<DEF INF NXT () <SET A <♦ .A 1»>S 
NXT 

[ XX< SETUP) X<NXT> X<NXT> (XX<SETUP>) X<NXT>]S 
[1 2 () 1 ] 
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I l 

17.1.2. LINK 

<LINK exp:#ny string oblist} 

|1 

creates an object of TYPE LINK, PR1MTYPE ATOM. A LINK looks vaguely like an ATOM; it has a 
PNAME (the stung argument), resides in an OBLIST (the oblist argument) and has a "value" (the exp 
argument). A l INK has the strange property that, whenever it is encountered by READ (that is, its 
PNAME is read, just lil.e an A10M, possibly with OBLIST trailers), READ substitutes the LINK’S "value" 
for the LINK immediately. The effect of READing a LINK’S PNAME is exactly the same as the effect of 
reading its "value". 

] 

The obhst argument is optional. <1 .OBLIST) by default. LINK returns its first argument. The 
LINK is created via INSERT, so an error results if there is already an ATOM or LINK in oblist with the 
same PNAME . 

The primary use of LlNKs is in interactive work with MDL: expressions which are commonly used, 
but annoyingly long to type, can be "linked" to PNAMEs which are shorter. The standard example is 
the following: 

<LINK '<ERRET> MA E M <R00T» 

which links the A10M of PNAME A E in the ROOT OBLIST to the expression <ERRET>. 

17.1.3. Program-defined Macro-characters 

During READing from an input CHANNEL or PARSEing a STRING, any character can be made to have 
a special meaning. A character can cause an arbitrary routine to be invoked, which can then return 
any number of elements to be put into the object being built by READ, PARSE, or LPARSE. 

Translation of characters is also possible. This facility was designed for those persons who want to 
use MDL READ to do large parts of their input but have to modify its actions for some areas: for 
example, one might want to treat left and right parentheses as tokens, rather than as delimiters 
indicating a LIST. 

17.1.3.1. READ (finally) 

Associated with RTAD is an ATOM, RCAD-TABLE! -, whose local value, if any, must be a VECTOR of 
elements, one for each character up to and including all characters to be treated specially. Each 
element indicates, if not 0, the action to be taken upon READ’S encounter with that character. A 
similar VECTOR, the local value of PARSE-TABLE!-, if any, is used to find the action to take for 
characters encountered when PARSE or LPARSE is applied to a STRING. 

These tables can have up to 25G elements, one for each ASCII character and one for each possible 
exclamation-point/ASCI (-character pair. In MDL, the exclamation-point is used as a method of 

1 
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expanding il*o ASCII character vet, and an exclamation -point/character pair is treated as one logical 
character when not reading a SIRING. 

The element corresponding to a character is <NTH table <♦ 1 <ASCII char>». Tlie element 
corresponding to an exelaination-point/ASCII-cliaractcr pair is <NTH table <♦ 129 <ASCII char>». 
The table can he shorter than 256 elements, in which case it is treated as if it were 256 long with 0 
elements beyond its actual length. 

An element of the tables must satisfy one of the following DECL Patterns: 

0 indicates that no special action is to be taken when this character is encountered. 

CIIAKAt.il K indicates that t lie encountered character is to be translated into the given CHARACTER 
whenever it appears, except when as an object of TVPE CHARACTER, or in a STRING, or 
immediately following a \. 

f IX indicates that the character is to be given the same treatment as the character with the 
ASC.H value of the TlX. T his allows yon to cause other characters to be treated in the same 
nay as A-Z. fm example. The same exceptions apply as for a CHARACTER. 

<1 1SI I IX> indicates the same thing, except that the character docs not by itself cause a break. 
Then (me. if it occurs when reading an A10M or number, it will be treated as part of that ATOM 
or number. 


AIMT it Altl I (m one argument) indicates that the character is to be a break character. Whenever 
it is eiuoiiiiieieil. the reading of the emrent object is finished, and the corresponding element 
ot the table is Al’I'L Yed In the ASCII CHARACTER. (If READ is called during the application, the 
cnd-nf-l dr slot of the CHAIJNEl temporarily contains a special kind of ACTIVATION (TYPE 
111 AHA) so ihai rml-of-file ran lie signalled properly to the original READ. Isn’t that 
vvnndei fill 5 ) I he value vet min'd is taken to be what was read, unless an object of TYPE SPLICE 
is returned It so. the elements of this object, which is of PRIMTYPE LIST, are spliced in at the 
point "bne M 1)1 is reading. An empty SPLICE allows one to return nothing. If a structured 
object is mu being Imilt. ami a SIT ICl is returned, elements after the first will be ignored. A 
SPl IU dining reading is similar to a SEGMENT during evaluating, except that, in some sense, a 
SIT ICl says "expand me”, whereas the structure containing a SEGMENT says "I will expand you". 


<1 1ST At Ml 1 1 AMI I > indicates the same thing, except that the character does not by itself cause 
a bieak. ITierelore, if it occurs when reading an ATOM or number, it will be treated as part of 
that A TOtl or number. 


READ tales an additional optional argument, which is what to use instead of the local value of the 
ATOM RLAD-TAIll E as the VECTOR of read-macro characters. If this argument is supplied. READ-TABLE 
is rebound to it within the call to READ. READ lakes from zero to four arguments. The fullest call to 
RE AO is thus: 
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(READ ch.vmcl cof-routinc look-up rcAd-tMewector) 

The other arguments ate explained in sections II. 1.1. 1. 11.3. and 15.7.1. 

ERROR anil L1S11 N rebind RE AD- 1 ABLE to the GVAL of READ-TABLE, if any. else UNASSIGN it. 
17.1.3.2. Examples 

Examples of each of the different kinds of entries in macro tables: 

<SET RLAD-1ABIE <IVECT0R 256 0»S 

[...] 

<IHIT .RLAD-1ABLE (♦ 1 (ASCII !\a» !\A> 

; "CHARACTER: translate a to A."S 

r-..i 

nbcS 

Abe 

< Pill .III AD- TABLE <♦ 1 (ASCII <\X» (ASCII !\A» 

;"FIX: make X just a normal ASCII character . "S 

I ... J 
AXBCS 
A\XBC 

(PUT .READ-TABLE (♦ 1 (ASCII !\,>> ((ASCII !\,>)> 

;"(1.1ST EIX>: make comma no longer a break 
character, but still special if at a break. *$ 

1...1 
A. LtS 
A\.H 

;"lhot was an A l OH with t’NAME A.B ." 

MIS 

,B 

That was the I ORM (GVAL B> ." 

(PUT .RCAll-TABLE (■*• 1 (ASCII !\:» 

fEUHCTIOM ((X) (LIST COLON (READ»)> 

; "Al'Pl 1 CABLE : make a new thing like ( < and [ 

I...J 
B : AS 
B 

( coion a) 

: : : I 00i» 

(COLON (COION (COION TOO))) 
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<PIM .Rl AD-TAP.LE <♦ 1 < ASCI I !\:>> 

'(-lUNCHON ((X) <1. 1ST COLON <READ»))> 

; "<l 1SI APPl ICABLE>: like above, but not a break 
now. "S 

I ... 1 

II : AS 
11: A 

; "That was an AIOM." 

: : :l OOS 

< roi ow (i oi on ( r oi on roo))) 

17.1.3.3. PARS! ami U’ARSL (finally) 

vI’AKSI •:/< .ii;; look up par sc-tablewector look- ahead* liar acter) 

is (ho fullest t all m I'ARSf . PARSE can (al e from zero to five arguments. If PARSE is given no 
arguments, it mums tlir fiisi object parsed from (lie local value of the STRING PARSE-STRING and 
additional!! SI Is I’ARSI -SIRING to die STRING having those CHARACTERS which were parsed RESTed 
off. If I’ARSI is given a SIRING lo parse, the AION PARSE-STRING is rebound to the STRING within 
that call If the /. •- lahie argument is given to PARSE, PARSE-TABLE is rebound to it within that 

call to PAR. SI . I'iii ally, PARSI can lake a look-ahead CHARACTER, which is treated as if it were 
logically concatenated io the front of the string being parsed. Other arguments are described in 
sections 7. ti. ('.,!! and 15.7.2. 

1. PARSI is exactly Ide PARSI , except that it tries to parse the whole STRING, returning a LIST of 
the objects created. 


1 7.2. EVAI Man os 

An EVAI macro pim ides the convenience of a FUNCTION without the overhead of calling. SPECIAL*, 
etc. in the compiled version. A special-purpose function that is called often by FUNClIONs that will 
be compiled is a good candidate for an EVAL macro. 


17.2.1 111 I MAC and I XPANH 

DC f MAC t'dil me maim") is syntactically exactly the same as DEFINE. However, instead of creating a 
FUNCTION, l»l 1 1 1 AC creates a MACRO . A MACRO is of PR1MTYPE LIST and in fact has a FUNCTION (or 
other APPl 1 C Alii I lYl’Mas its single element. 

A MACRO can itsell tie applied to arguments. A MACRO is applied in a funny way. however: it I* 
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EVALed twice. The first rVAl causes the MACRO’S element to be applied to the MACRO'S arguments. 
Whatever that application returns (usually another FORM) is also EVALed. The result of the second 
EVALuatimi is the result of applying the MACRO. EXPAND is used to perform the first EVAL without 
the second. 

To avoid complications, the first [VAL (by EXPAND, to create the object to be EVALed the second time 
around) is done in a top-level environment. The result of this policy is that two syntactically 
identical invocations of a MACRO always return the same expansion to be EVALed in the second step. 
The first EVAI generates two extra TRAMEs: one for a cal) to EXPAND, and one for a call to EVAL the 
MACRO application in a top-level environment. 

Example: 

CDFFMAC INC (AIM "OPTIONAL" (N 1)) 

H>ECL ((VALUE) FORM. (ATM) ATOM (N) COR FIX FLOAT>) 

CFORM SET .ATM CFORM + CFORM LVAL .ATM> .N»>$ 

INC 
, INC$ 

-MACRO ( #F UNCTION ((ATM "OPTIONAL" (N 1)) ...)) 

CSC! X m 
1 

< INC X>S 
2 

,X$ 

2 

CEXPAIJD * < INC X>>$ 

CSET X < + .X 1» 

Perhaps the intention is clearer if PARSE and X are used: 

CDEFMAC INC (ATM "OPTIONAL" (N 1)) 

FOE CL (...) 

< PARSE "CSEl '/..AIM <+ '/..ATM X.N»*» 

MACROS really exhibit their advantages when they are compiled. The compiler will simply cause the 
first EVAI nation to occur (via EXPANO) and compile the result. The single element of a compiled 
MACRO is an RSUI5R or RSIIP.R-ENTRY. 


17.2.2. Example 

Suppose you want to change the following simple FUNCTION to a MACRO: 
CDIFINI HOUniE (X) #DECL ((X) FIX) <+ .X .X» 


J 
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You may Lip tempted to write: 

<DCFMAC DOUBLE (X) #DECL ((X) FIX) <F0RH ♦ .X .X» 

This MACRO works, hut only when the argument does not use temporary bindings. Consider 

<r>rrim tripie (y) <♦ .y cdouble .y»> 

If this I UNCTION is applied, the top-level binding of Y is used, not the binding just created by the 
application. Compilation of this FUNCTION would probably fail, because the compiler probably 
would have no top-level binding for Y. Well, how about 

<PEFMAC HOUBLE CX) <F0RM ♦ .X ,X» ; H Thc OECL has to go." 

Now this is more like thr original FUNCTION, because no longer is the argument evaluated and the 
result evaluated again. And TRIPIE works. But now consider 

SOEFTNE INC -AND -DOUBLE (Y) < DOUBLE <SET Y <•*■ 1 ,Y»» 

You might hope that 

< INC-ANO-DOUBIC 1> -> < DOUBLE <SET Y <+ 1 ;»> 

-> < DOUBLE 2> 

-> <♦ 2 2 > 

-> 4 

But. when OOUIll I is applied to that FORM, the argument is QUOTEd, so: 

< INC-AND-DOUBLE 1> -> < DOUBLE <SET Y <♦ 1 -Y>» 

-> < T ORN + <SET Y <♦ 1 . Y» <SET Y <1 .Y»> 

-> <+ 2 3 > 

-> 5 

So. sime the rvalnaiion of DOUBLE’S argument has a side effect, you should ensure that the 
evaluation is done exactly once, say by FORM: 

<DCrilAC DOUBLE CANY) . 

<FORM PROG ((X .ANY)) #DECL ((X) FIX) •<♦ .X .X»> 

As a bonus, the DECl can once more be used. 

This example is intended to show that writing good MACROS is a little trickier than writing good 
FUNCTIONS. But the effort may he worthwhile if the compiled program must be speedy. 
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Chapter 18. Machine Words and Bits 


The MDI facility for dealing with uuinterpreted machine words and hits involves two data TYPEs: 
WORD and BUS. A WORD is simply an uninterpreted machine word, while a BITS is a "pointer" to a 
set of hits within a WORD. Operating on WORDs is usually done only when compiled programs are 
used (chapter I 1 )). 


18.1. W ORDs 

A WORD in MDL is a PDP-IO machine word of 3G bits. A WORD always PRINTS in "# format", and its 
contents are always printed in octal (lienee preceded and followed by *). Examples: 

-WORD 0 ;"all Os"S 

"WORD *000000000000* 

-WORD *2000* ;"one bit PS 

-WORD *000000002000* 

"WORD *3?r>?5?5?5752* pevery other bit 1"S 

-WORD *S?^*2?*?b?S?5?« 

WORD is its own PRIMTYPC: it is also the PRIIITYPE of FIX, FLOAT, CHARACTER, and any other TYPE 
which ran fit its data into one machine word. 

A WORD cannot l,e an argument to ♦, -, or indeed any SUBRs except for CHTYPE , GETBITS, PUTBITS 
and scvcial hit-manipulating functions, all to be described below. Thus any arithmetic bit 
manipulation must he done hy ClllYPl ing a WORD to r IX, doing the arithmetic, and then CHTYPEing 
back to WORD. However, hit manipulation can be done without CHTYPEing the thing to be played 
with to a WORD, so long as it is of PRIMIYPE WORD; the result of the manipulation will be of the 
same TYPE as the oijgiu.il ob ject or can be CHTYPEd to it. 
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An object of 1YPI BITS is of PRIHTYPE WORO, and PRINTS just like a WORD. The internal form of a 
BITS is pm isely that of a PDI’-IO "byte pointer”, which is. in fact, just what a BITS is. 

For purposes of explaining what a BITS is. assume that the bits in a WORD are numbered from right 
to left , with the light iiiom bit numbered 0 and the leftmost numbered 35. as in 

V. 34 33 ... 2 1 0 

(This is not the "standard'' ordering: the "standard" one goes from left to right.) 

A BITS is most conveniently treated via the SURR BITS: 

<BIIS wdth:fi s nght-edgedix) 

returns a I! I IS which "points to" a set of hits width wide, with rightmost bit right-edge. Both 
arguments must be of TYPE FIX, and the second is optional. 0 by default. 

Examples: the indicated application of BITS returns an object of TYPE BITS which points to the 
indicated set of bits in a WORD: 

<BITS 7> 35 ... 7 6 ... 0 

< B IT S 4 18> 35 ... 22 2\ 20 19 18 17 ... 0 

sBI IS 36 > 3 5 ... 0 


18.3. GL 1B1 1 S 

CGCTRIIS fror»:/vimt\ pe-word bits > 

where ire., is an object of PR1MTYPE WORD, returns a new object whose TYPE is WORD. This object is 
constructed in the following way: the set of bits in from pointed to by bits is copied into the new 
object, right-ad justed, that is, lined up against the right end (bit number 0) of the new object. All 
those bits of the new object which are not copied arc set to zero. In other words. GETBITS takes bits 
from an arbitrary place in from and puts them at the right end of a new object. The from argument 
to GETBITS is not affected. 

Examples; 
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<GE 11SI1S *WORD * 777777777777* <B1TS 3»S 
•WORD *000000000007* 

<r.l THIlS *012345670123* <BITS 6 10»$ 
“WORD *000000000045* 


18.-1. ph i in is 

<PUiniTS / 0 :pr imt) pe- word bits tr orn.pnnit vpe -wOrd> 

where to ami from are of PRIMTYPE WORD, returns a ayyy of to. modified as follows: the set of bits 
in to which are pointed to by bits are replaced by the appropriate number of rightmost bits copied 
from from (optional. 0 by default!. In other words: PUTBITS takes bits from the right end of from 
and stuffs them into an arbitrary position in a copy of to. None of the arguments to PUTBITS is 
affected. 

Examples: 

< PIJ I B 1 IS “WORD * 777777777777* <B1 TS 6 3>>$ 

“WORD *777777777007* 

crUTBITS < WORD *660777000111* <BITS 5 15> #V0RD *123*>S 
•WORD *666776300111* 

milBUS iWORU *765432107654* < B 1 TS 1 8 > >S 
''WORD *765432000000* 


18.5. Di twisp Boolean Opera I inns 

Each of the SlIRRs ANIUl , ORB, XORB, and rQVB takes arguments of PRIMTYPE WORD and returns a 
WORD which is the bitwise Boolean "and", inclusive "or", exclusive "or", or "equivalence" (inverse of 
exclusive or I. respectively, of its arguments. Each takes any number of arguments. If no 
argument is given, a WORD with all bits off (ORB and XORB) or on (ANDB and EQVB) is returned. If 
only one argument is given, it is returned unchanged but CIITYPEd to a WORD. If more than two 
arguments aie given, the operator is applied to the first two. then applied to that result and the 
third, etc. Be sure not to confuse AND and OR with ANDB and ORB. 
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18.6. B itwise Shining O pera tions 

<ISII frem:primtypc-word amount :f is > 

returns a new WOKP containing the hits in from, shifted the number of bits specified by amount {mod 
256. says the hanluaie). Zero hits are brought in at the end being vacated: bits shifted out at the 
other end ate lost. If amount is positive, shifting is to the left: if amount is negative, shifting is to 
the right. I samples: 

<tSII « OH 

r»WOKD *000000001000* 

<1511 0 -OH 

fwoitn *000000000000* 

<l\OI tr om:(.v imt ype-word an.oun! 

returns a new WOUO mntaining the hits in from, rotated the number of bits specified by amount (mod 
256. says the haidwaicl. Rotation is a cyclic bitwise shift where bits shifted out at one end are put 
back in at the other. If amount is positive, rotation is to the left: if amount is negative, rotation is to 
the right. l'xamplrs: 

<KOI H oH 

'WORD *000000001000* 

<R01 0 -C»H 
("WORD *100000000000* 




i 
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Chapter 19. Compiled Programs 


19.1. RSU BR Olic TYPE) 

RSUBRs ("relocatable subroutines") arc machine-language programs written to run in the MDL 
environment They are usually produced by the MDL assembler (often from output produced by the 
compiler) although this is not necessary. All RSUBRs have two components: the "reference vector" 
and the "code vector". In some cases the code vector is in pure storage. There is also a set of 
"fixups" associated with every RSUBR, although it may not be available in the running MDL. 


19.2. T he Reference V ecto r 

An RSUBR is basically a VECTOR that has been CHTYPEd to TYPE RSUBR via the SUBR RSUBR (see 
below). This c.x-VL'CTOR is the reference vector. The first three elements of the reference vector have 
predefined meanings: 

The first element is of TYPE CODE or PCOOE and is the impure or pure code vector respectively. 
The second clement is an ATOM and specifies the name of the RSUBR. 

The third element is of TYPE DFCl and declares the type/structure of the RSUBRs arguments and 
result. 

The rest of the elements of the reference vector arc objects in garbage-collected storage that the 
RSUBR needs to reference and any impure slots that the RSUBR needs to use. 

When the RSUBR is running, one of the PDIMO accumulators (with symbolic name R) is always 
pointing to the reference vector, to permit rapid access to the various elements. 
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19.3. RSUBR Linking 

RSUBR* ran call any APPLICABLE object, all in a uniform manner. In general, a call to an F/SUBR is 
linked up at assembly/compilc time jo that the calling instruction (UUO) points directly at the code 
in the interpreter for the F/SUIIR. However, the locations of most other APPLICABLEs are not 
known at assrmhly/rompile time. Therefore, the calling UUO is set up to point at a slot in the 
reference vector (by indexing off accumulator R). This slot initially contains the ATOM whose 
G/LVAL is the called object. The calling mechanism (UUO handler) causes control to be transferred 
to the called object and. depending on the state of the RSUBR-link flag, the ATOM will be replaced by 
its G/I.VAI (If the call is of the “quick" variety, the called RSUBR or RSUBR-EHTRY will be CHTYPEd 
to a QUICK -RSUBR or QUICK-ENTRY, respectively, before replacement.) Regardless of the RSUBR-link 
flag s stale, calls to TUNCTIONs are never permanently linked. A call to a non-Subroutine generates 
an extra r RAHE , whose rtlNCT is the dummy ATOM CALLER. 

RSUBRs are linked together for faster execution, but linking may not be desirable if the RSUBRs are 
being debugged, and various revisions arc being re-loaded. A linked call will forever after go to the 
same code, regardless of the current G/LVAL of the called ATOM. Thus, while testing RSUBRs. you 
may want to disable linking, by calling the RSUBR-LINK SUBR with a FALSE argument. Calling it 
with a non-FALSE argument enables linking thereafter. It returns the previous state of the link flag, 
either T or #r Al SE ( ) . Galling it with no argument returns the current state. 


19.4. Pure and 1m p ure Co de 

The first element of an RSUBR is the code vector, of TYPE CODE or PCOOE. TYPE CODE is of 
PRIM TYPE UVFCTOR, and the UTYPE should be of PRIHTYPE WORD. The code vector is simply a block 
of words that are the instructions which comprise the RSUBR. Since the code vector is stored just 
like a standard UVI CIOR, it will be moved around by the garbage collector. Therefore, all RSUBR 
code is required to lie location-insensitive. The compiler guarantees the location-insensitivity of its 
output. 'I be assembler helps to make the code location-insensitive by defining all labels as offsets 
relative to the beginning of the code vector and causing instructions that refer to labels to index 
automatically orr the PDP-IO accumulator symbolically named M. M, like R, is set up by the UUO 
handler, hut it points to the code vector instead of the reference vector. The code vector of an 
RSUBR can he frozen (using the FREEZE SUBR) to prevent it from moving during debugging by DDT 
in the superior operating-system process. 

If the first element of an RSUBR is of TYPE PCODE (“pure code*), the code vector of the RSUBR is pure 
and sharahlc. TYPE PCODE is of PRIMTYPE WORD. The left half of the word specifies an offset into 
an internal table of pure RSUBRs, and the right half specifies an offset into the block of code where 
this RSUBR starts. The PCODL prints out as: 


%< PCODE njr»e:string offset :fix> 
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where n.mtr names i he entry in the user’s pure-RSUBR table, and offset is the offset. (Obviously, 
PCODE is also the name of a SUBR, which generates a pure code vector.) Pure RSUBRs may also move 
around, but only by being included in MDL's page map at different places. Once again M can be 
used exactly as before to do location-independent address referencing. Individual pure code vectors 
can be "unmapped" (marled as being not in primary slorage but in their original pure-code disk 
files) if the space in storage allocated for pure code is exhausted. An unmapped RSUBR is mapped in 
again whenever needed. All pure RSUBRs are unmapped before a SAVE file is written, so that the 
code is not duplicated on disk. A purified RSUBR must use RGLOC ("relative GLOC") instead of GLOC. 
RGLOC produces objects of TYPE LOCR instead of LOCO. 


19.5, TYPE-C and TYPE -W 

In order to handle user urwTYPCs reasonably, the internal TYPE codes for them have to be able to be 
different from one MDL run to another. Therefore, references to the TYPE codes must be in the 
reference vector rather than the code vector. To help handle this problem, two TYPEs exist. TYPE-C 
("type code") and TYPE-W ("type word"), both of PRIMTYPE WORD. They print as: 

%< TYPE-C /) po primtypemtom > 

'/< TYPE-W type primly pc:atom> 

The SUP.R TYPE-C produces an internal TYPE code for the type, and TYPE-W produces a prototype 
"TYPE word" (appendix I) for an object of that TYPE. The primtype argument is optional, included 
only as a check against the call to NEWTYPE. TYPE-W can also take a third argument, of PRIMTYPE 
WORD, whose right half is included in the generated "TYPE word". If type is not a valid TYPE, a 
NEWTYPT is automatically done. 

To be complete, a similar SUBR and TYPE should be mentioned here. 

< PRIM I YI’T -C t\pe> 

produces an internal "storage allocation code" (appendix 1) for the type. The value is of TYPE 
PRIMTYPE-C, PRIMTYPE WORD. In almost all cases the SUBR TYPEPRIM gives just as much 
information, except in the case of TEMPLATES: all TYPES of TEMPLATES have the same TYPEPRIM, but 
they all have different PR]MIYPE-Cs. 


19.6. R SUBR (the SUBRT 

<RSUBR [rode name decl ref ref . . . ]> 

CHTYPEs its argument to an RSUBR, after checking it for legality. RSUBR is rarely called other than 
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in the MDL Assembler (Lebiing. 1979). It can be used if changes must be made to an RSUBR that are 
prohibited by MDL’s built-in safety mechanisms. For example, if the GVAl of name is an RSUBR: 

<SET FIXIT <CHTYPE ,name VECT0R»S 

... (changes to .FIXIT)... 

<SETG name <RSUBR .FIXIT»S 
4RSUBR [...] 


19.7. RSUBR-ENTRY 

RSUBRs can have multiple entry points. An RSUBR-ENTRY can be applied to arguments exactly like 
an RSUBR. 

<RSUBR-EN1RY [ rsubr-or-atom name:atom dec ! ] offset :fix> 

returns the VECTOR argument CIITYPEd to an RSUBR-ENTRY into the rsubr at the spe>. ied offset. If 
the RSUBR-ENTRY is to have a DECL (RSUBR style), it should come as shown. 

<ENTRY-LOC rsubr-entry > 

("entry location") returns the offset into the RSUBR of this entry. 


19.8. RSUBRs in Files 

There are three kinds of files that can contain RSUBRs. identified by second names BINARY, NBIN 
and FBIN. There is nothing magic about these names, but they are used by convention. 

A BINARY file is a completely ASCII file containing complete impure RSUBRs in character 
representation. Even a code vector appears as ICODE followed by a UVECTOR of PRIMTYPE WORDS. 
BINARY files are generally slow to load, because of all the parsing that must be done. 

An NBIN file contains a mixture of ASCII characters and binary code. The start of a binary 
portion is signalled to READ by the character control-C, so naive readers of an NBIN file on ITS may 
incorrectly assume that it ends before any binary code appears. An NBIN file cannot be edited with 
a text editor. An RSUBR is written in NBIN format by being PRINTed on a "PRINTB* CHANNEL. The 
RSUBRs in NBIN files are not purified either. 
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An FBIN file is actually part of a triad of files. The FBIN file(s) itself is the impure part of a 
collection of purified RSUBRs. It is simply ASCII and can be edited at will. (Exception: in the ITS 
and Tops-20 versions, the first object in the file should not be removed or changed in any svay. lest 
a "grim reaper" program for I BIN files think that the other files in the triad are obsolete and delete 
them.) The pure code itself resides (in the ITS and Tops-20 versions) in a special large file that 
contains all i niiently-osed pme code, or (in the Tencx version) in a file in a special disk directory 
with first name the same as the name argument to PCODE for the RSUBR. The pure-code file is page- 
mapped directly into MDL storage in read-only mode. It can be unmapped when the pure storage 
must he reclaimed, and it can hr mapped at a different storage address when pure storage must be 
compacted. There is also a "fixup" file (see below) or portion of a file associated with the FBIN to 
round out the triad. 

An initial MDL can have pure RSUBRs in it that were "loaded" during the initialization procedure. 
The files are not page-mapped in until they are actually needed. The "loading" has other side 
effects, such as the creation of OBLISTs (chapter 15). Exactly wlut is pre-loaded is outside the scope 
of this document. 


19.9. Fixups 

The purpose of "fixups" is to correct references in the RSUBR to parts of the interpreter that change 
from one release of MDL to the next. The reason the fixups contain a release number is so that 
they can he completely ignored when an RSUBR is loaded into the same release of MDL as that from 
which it was last written nut. 

There are three forms of fixups, corresponding to the three kinds of RSUBR files. ASCII RSUBRs, 
found in BINARY filrs, have ASCII fixups. The fixups are contained in a LIST that has the 
following format: 

( MDL-releasc:fix 

neme:rtom value:fix ( use:fix us e:fix ...) 
namc:aton\ value .fix ( use.fix use .fix ...) 

...) 

The fixups in NBIN files and the fixup filrs associated with FBIN files are in a fast internal format 
that looks like a UVFC.10R of PRIMTYPt WORDs. 

Fixups arc usually discarded after they are used during the loading procedure. However, if, while 
reading a BINARY or NBIN file the ATOM KELP-FIXUPS! - has a non-FALSE LVAL, the fixups will be 
kept, via an association between the RSUBR and the ATOM RSUBR. It should be noted that, besides 
correcting the code, the fixups themselves are corrected when KEEP-FIXUPS is bound and true. Also, 
the assembler and compiler make the same association when they first create an RSUBR, so that it 
can be written out with its fixups. 
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In the case of ,„,re RSUBRa (FB1N files), things are a little different. If . pure-code file exists for 

file fo 'til”/ I t " “• i """ edia,e| y- a,,d «re completely ignored. If . pure-clde 

file for this release docsn t exist, the fixup file is used to create a new copy of the file from ^ 

one. and also a new revision of the fixup file is created to go with the new* pure-code file This all 
goes on automatically behind the user s back. pure-code file. This all 


19.9 


Compiled Programs 


The MDL Programming Language 


169 


Chapter 20. Coroutines 

This chapter purports to explain the coroutine primitives of MDL. It does make some attempt to 
explain coroutines as such, but only as required to specify the primitives. If you are unfamiliar 
with the basic concepts, confusion will probably reign. 

A coroutine in MDI is implemented by an object of TYPE PROCESS. In this manual, this use of the 
word "process" is distinguished by capitalization from its normal use of denoting an operating* 
system process (which various systems call a process, job, fork, task. etc.). 

MDL’s built-in coroutine primitives do not include a "time-sharing system". Only one PROCESS is 
ever running at a time, and control is passed back and forth between PROCESSes on a coroutine-like 
basis. The primitives are sufficient, however, to allow the writing of a "time-sharing system" in 
MDL . with the additional use of the MDL interrupt primitives. This has. in fact, been done. 


20.1. PRO CESS (theJ YPE) 

A PROCESS is an object which contains the "current state" of a computation. This includes the 
LVALs of AlOMs ("bindings"), "depth" of functional application, and "position" within the application 
of each applied function. Some of the things which are rnd part of any specific PROCESS are the 
GVALs of ATOMs. associations (ASOCs), and the contents of OBLISTs. GVALs (with OBLISTs) are a chief 
means of communication and sharing between PROCESSes (all PROCESSes can refer to the SUBR which 
is the GVAL of ♦, for instance). Note that an LVAL in one PROCESS cannot easily be directly 
referenced from another PROCESS. 

A PROCESS PRIMTs as ^PROCESS p. where p is a FIX which uniquely identifies the PROCESS; p is the 
"PROCESS number" typed out by LISTEN. A PROCESS cannot be read in by READ. 

The term "run a PROCESS" will be used below to mean "perform some computation, using the 
PROCESS to record the intermediate states of that computation". 

N.B.: A PROCESS is a rather large object; creating one will often cause a garbage collection. 
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20.2. ST A 1F of aJffOCPSS 


<STATE process > 


'"“"'V" “ l0 " “"- 1 SD «Md. indie.,,, ,l„ 0 , , h , PROCESS 

wnuh 5TATE tan reinrn. and tiieir meanings, are as follows: 


The ATOM* 


RUNAI5I f (sic) -- process lias never ever been run. 


RUNNING - process is currently running, that is. it did the application of STATE. 
REStIMABlE ~ process has been run. is not currently running, and can run again. 
DEAD - process has been run. but it can not run again: it has ‘terminated*. 


i!ZTrr an (du|>,cr 2I) can bf enablcd defect the time at which a PROCESS becomes 

blocked (waiting for terminal input) or "unblocked" (terminal input arrived). (The STATE BLOCKED 
has not been implemented.) 


20.3. PROCESS (the SUB R) 

<PR0C.lSS starter : Applicable) 


creates and returns a new PROCESS but does not 
RUNABLE (sic). — 


run it; the STATE of the 


returned PROCESS 


is 


stater is something applicable to one argument, which must be evaluated, stater it used both in 

,n if * • 


20.4. RESUME 


Ip^ r S “ R J ESl,ME is "' ed * computation to start or to continue running in another 

PROCESS . An application of RESUME looks like this: 


< RESUME retv eh cmy process > 


where relval is the "returned value" (see below) of the PROCESS that 
the PROCESS to be started or continued. 


does the RESUME. 


and process is 
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The process argument to RESUME is optional, by default the last PROCESS, if any, to RESUME the 
PROCESS in which this RESUME is applird. If and when the current PROCESS is later RESUMEd by 
another PR0CF5S, that RESUML’s retval is returned as the value of this RESUME. 

20.5. Switching PROCESSes 

20.5.1. Starting lip a New n R0CESS 

Let us say that we are running in some PROCESS, and that this original PROCESS is the GVAL of P0. 
Somewhere, sve have evaluated 

<SETG PI < PROCESS ,STARTER» 

where .STARTER is some appropriate function. Now.iu^, we evaluate 
<RESUME .A , PI > 
and the following happens: 

(1) L'i tPO 'l ,e arguments of the RESUME are evaluated: that is, we get that LVAL of A which is 
current in ,P0 and the GVAL of PI. 

(2) The S1AIE of ,P0 is changed to RESUMA8LE and ,P0 is "frozen" right where it is, in the 
middle of the RESUME. 

(3) The STATE of ,P1 is changed to RUNNING, and .STARTER is applied to ,P0’s LVAL of A in 
.PL ,P1 now continues on its way. evaluating the body of .STARTER. 

The .A in the RESUME could have been anything, of course. The important point is that, whatever it 
is, it is evaluated in ,P0. 

What happens next depends, of course, on what .STARTER does. 

20.5.2. Top-level Return 

Let us initially assume that .STARTER does nothing relating to PROCESSes. but instead simply 
returns a value -- say st^rval. What happens when .STARTER returns is this: 

(I) The STATE of ,P1 is changed to DEAD. , P 1 can never again be RESUMEd. 
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(2) The last PROCESS to RESUME ,P1 is found, namely ,P0, and its STATE is changed to 
RUNNING. 

(3) st.wva/ is returned in ,P0 as the value of the original RESUME, and ,P0 continues where it 
left off. 

All in all, this simple case looks just like an elaborate version of applying .STARTER to .A in ,P0. 


20.5.3. Symmetric RESUMEing 

Now suppose that while still in , P 1 the following is evaluated, either in .STARTER or in something 
called by .STARTER: 

<RESUMC .BAR ,P0> 

This is what happens: 

(I) The arguments of the RESUME are evaluated m , PI . 

(21 The STATE of . P 1 is changed to RESUMABLE, and . P 1 is "frozen" right in the middle of the 
RESUME. 

(31 The STATF of , P0 is changed to RUNNING, and .Pi’s LVAL of BAR is returned as the value of 
. PO's original RESUME. ,P0 then continues right where it left off. 

This is tjhe interesting case, because ,P0 can now do another RESUME of .PI; this will "turn off" 
,P0, pass a value to ,P1 and "turn on" .PI. , P 1 can now again RESUME ,P0, which can RESUME 
,P1 back again, etc. ad nauseam, with everything done in a perfectly symmetric manner. This can 
obviously also be done with three or more PROCESSes in the same manner. 

Note how this differs from normal functional application: you cannot "return" from a function 
without destroying the stale that function is in. The whole point of PROCESSes is that you can 
"return" (RLSUME). remembering your state, and later continue where you left off. 


20.6. Example 
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;"Inilial1y, we are in LISTEN in some PROCESS." 

<DCFINE SUM3 (A) 

♦ DF.CL ((A) <0R FIX FLOAT)) 

<REPEAT ((S .A)) 

f»0ECL ((S) <0R FIX FLOAT)) 

<SET S <♦ .S < RESUME "GOT 1“»> 

<SET S <♦ .S < RESUME "GOT Z">» 

<SET S < RESUME .S))»S 

SIIM3 

; "SUM3, used ns the startup function of another PROCESS, 
clots RESUMEd with numbers. It returns the sum of the last 
three numbers it was given every third RESUME." 

<SETG SUMUP < PROCESS ,SUM3>>$ 

-PROCESS 2 

; "Now we start SUMUP and give SUM3 its three numbers." 
<RESUME 5 ,SUMUP)S 
"GOT 1" 

< RESUME 1 , SUMUP >J 
"G01 2 " 

<RESUME 2 ,SUMUP>1 
8 


Just as a note, by taking advantage of MDL's order of evaluation, SUM3 could have been written as: 

<DEF INC SUM3 (A) 

<REPF AT ((S .A)) 

#0ECL ((A S) <0R FIX FLOAT)) 

<SET S <RESUME <♦ .S < RESUME "GOT 1") < RESUME "GOT 2"»»» 


20.7. Other Corou ti ning Featur es 


20.7.1. BREAK-SEQ 

< BREAK -SCO any process > 

("break evaluation sequence") returns process, which must be RESUMABLE, after having modified it 
so that when it is next RESUMEd, it will first evaluate any and then do an absolutely normal RESUME; 
the value returned by any is thrown away, and the value given by the RESUME is used normally. 

If a PROCESS is BREAk-SEQed more than once between RESUMES, all of the anys BREAK -SEQed onto it 
will be remembered and evaluated when the RESUME is finally done. The anys will be evaluated in 
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lajf-in first-out" order. The FRAME generated by EVALing more than one any will have as its FUN CT 
the dummy A10M BREAKER. 

20.7.2. MAIN 

When you initially start up MDL. the PROCESS in which you are running is slightly ’special* in 
these two ways: 

(1) Any attempt to cause it to become DEAO will be met with an error. 

(2) <MAIN> always returns that PROCESS. 

The PROCFSS number of <MAIN> is always 1. The initial GVAL of THIS-PROCESS is what MAIN always 
returns. #PR0CESS 1 . 


20.7.3. ME 

<ME> 

returns the PROCESS in which it is evaluated. The LVAL of THIS-PROCESS in a RUNABLE (new) 
PROCESS is what ME always returns. 



20.7.4. RESUMER 

CRESIIMER process'} 

returns the PROCFSS which last RESUMEd process. If no PROCESS has ever RESUMEd process, it returns 
#FALSE ( ) . process is optional. <ME> by default. Note that <MAIN> does not ever have any resumer. 
Example: 


<PR0G ((R < RESUMER) ) ) ;«not effective in CHAIN)" 

#DECl ( ( R ) COR PROCESS FALSE)) 

CANO .R 

<==? CSTATE .R> RESUMABLE) 

CRESUME T .R»> 


20.7.5. SUICIDE 


CSUICIDC retv a! process > 
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acts just like RESUME, but clobbers the PROCESS (which cannot be <MAIN>) in which it is evaluated to 
the STATE DEAD. 


20.7.6. 1STEP 

<1STEP process > 

returns process, after putting it into "single-step mode". 

A PROCESS in single-step mode, whenever RESUMEd, runs only until an application of EVAL in it 
begins or finishes. At that point in time, the PROCESS that did the 1STEP is RESUMEd, with a retval 
which is a TUPLE. If an application of EVAL just began, the TUPLE contains the ATOM EVLIN and 
the arguments to EVAL. If an application of EVAL just finished, the TUPLE contains the ATOM 
EVLOUT and the result of the evaluation. 

process will remain in single-step mode until FREE-RUN (below) is applied to it. Until then, it will 
stop before and after each EVAL in it. Exception: if it is RESUMEd from an EVLIN break with a retval 
of TYPE DISMISS (PRIMIYPE ATOM), it will leave single-step mode only until the current call to 
EVAL is about to return. Thus lower-level EVALs are skipped over without leaving the mode. The 
usefulness of this mode in debugging is obvious. 


20.7.7. FREE-RUN 

<TREE-RUN process > 

takes its argument out of single-step mode. Only the PROCESS that put process into single-step 
inode can take it out of the mode: if another PROCESS tries, FREE-RUN returns a FALSE. 


20 8. Sneakiness with PROCESScs 


FRAMES, ENVIRONMI NTs. TAGs, and ACTIVATIONS are specific to the PROCESS which created them, and 
each "knows its own father". Anj^ SUBR which takes these objects as arguments can take one which 
was generated by any PROCESS , no matter where the SUBR is really applied. This provides a rather 
sneaky means of crossing between PROCESScs. The various cases are as follows: 

GO, RETURN, AGAIN, and ERRET, given arguments which lie in another PROCESS, each effectively 
"restarts" the PROCESS of its argument and acts as if it were evaluated over there. If the PROCESS in 
which it was executed is later RESUMEd, it returns a value just like RESUME! 

SET. UNASSIGN, BOUND?, ASSIGNED?, LVAL, VALUE, and LLOC, given optional ENVIRONMENT 
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arguments which lie in another PROCESS. will gleefully change, or return, the local values of ATOM* 
in the other PROCESS . The optional argument can equally well be a PROCESS, FRAHE, or 
ACTIV/W ION in another PROCISS; in those cases, each uses the ENVIRONMENT which is current in the 
place specified. 

tRAMI, ARCS, and TUNC! will he glad to return the FRAMEs, argument TUPLES, and applied 
Subroutine names of another PROCESS. If one is given a PROCESS (including <ME» as an argument 
instead of a TRAM! . it returns all or the appropriate part of the topmost FRAME on that PROCESS'S 
control stack. 

If EVAL is applied in PROCISS PI with an ENVIRONMENT argument from a PROCESS P2. it will do the 
evaluation in PI but with P2’s ENVIRONMENT (!). That is. the other PROCESS'S LVALs. etc. will be used, 
but (I) any new I RAMCs needed in the course of the evaluation will be created in PI; and (2) PI will 
be RUNNING - not IV. Note the following: if the EVAL in PI eventually causes a RESUME of P2, P2 
could functionally return to below the point where the ENVIRONMENT used in PI is defined: a RESUME 
of PI at this point would cause an error due to an invalid ENVIRONMENT. (Once again. LEGAL? can 
be used to forestall this.) 


20.9. Fin al Notes 

(1) A RESUMABl E PROCESS can be used in place of an ENVIRONMENT in any application. The 
"current" I NVIRONMI Nt of the PROCESS is effectively used. 

(2) I RAMI s and I NVIRONMI Nls can he CHTYPEd arbitrarily to one another, or an ACTIVATION can be 
CMTYPId to either of them, and die result "works". Historically, these different TYPE* were first used 
with different SURRs - I RAME with ERRET, ENVIRONMENT with EVAL, ACT 'VAT ION with RETURN - 
hence the invention of different TYPrs with similar properties. 

(3) bug' in multi PROCISS programs usually exhibit a degree of subtlety and nastiness otherwise 
unknown to the human mind. If when attempting to work with multiple PROCESSes you begin (o 
feel that you are rapidly going insane, you are in good company. 
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Chapter 21. Interrupts 

The MDL interrupt-handling facilities provide the ability to say the following: whenever "this 
event" occurs, stop whatever is being done at the time and perform "this action": when "this action" 
is finished, continue with whatever was originally being done. "This event" can be things like the 
typing of a character at a terminal, a time interval ending, a PROCESS becoming blocked, or a 
program-defined and -generated "event". "This action” is the application of a specified APPLICABLE 
object to arguments provided by the MDL interrupt system. The sets of events and actions can be 
changed in extremely flexible ways, which accounts for both the variety of SUBRs and arguments, 
and the rich interweaving of the topics in this chapter. Interrupt handling is a kind of parallel 
processing: a program can be divided into a "main-level" part and one or more interrupt handlers 
that execute only when conditions are ripe. 


21.1. Definitions o f Terms 

An interrup t is not an object in MDL, but rather a class of events, for example, "ticks" of a clock, 
garbage collections, the typing of a character at a terminal, etc. 

An interrupt is said occur when one of the events in its class takes place. 

An external interrupt is one whose occurrences are signaled to MDL by the operating system, for 
example, "ticks" of a clock. An internal interrupt is one whose occurrences are detected by MDL 
itself, for example, garbage collections. MDL can arrange for the operating system not to signal 
occurrences of an external interrupt to it: then, as far as MDL is concerned, that interrupt does not 
occur. 

Each interrupt has a name whiclj is either a STRING (for example, H GC\ "CHAR", "WRITE") or an 
ATOM with that PNAME in a special OBLIST, named INTERRUPTS!- . (This OBLIST is returned by 
< INTERRUPTS).) Certain names must always be further specified by a CHANNEL or a LOCATIVE to 
tell which interrupt by that name is meant. 

When an interrupt occurs, the interpreter looks for an association on the interrupt's name. If there 
is an association, its AVALUE should be an IHEADER, which heads a list of actions to be performed. 
In each IHEADER is the name of the interrupt with which the IHEAOER is or was associated. 
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In each I IIEADFR is an element telling whether it is disabled. If an IHEADER is disabled , then none of 
its actions is pcrfoimed. The opposite of disabled is enabled . It is sometimes useful to disable an 
IHEADIR temporarily, but removing its association with the interrupt’s name is better than long- 
term disabling. I here are SUBRs for creating an IHEADER, associating it with an interrupt, and later 
removing the association. 

In each IHEADER is a p rior ity, a FIX greater than 0 which specifies the interrupt's "importance". 
Tire processing of a higher-priority (larger-numbered) interrupt will supersede the processing of a 
lower-prioritv (smaller-numbered) interrupt until the high-priority interrupt has been handled. 

In each IHIADER is a (possibly empty) list of HANDLERS. (This list is not a MDL LIST.) Each 
HANDLER corresponds to an action to perform. There are SUBRs for creating a HANDLER, adding it to 
an IHEADER's list, and later removing it. 

In each HANDIER is a function that we will call a handler (in lower case), despite possible confusion, 
because that is really the best name for it. An action consists of applying a handler to arguments 
supplied by the interrupt system. The number and meaning of the arguments depend on the name 
of the interrupt. In each HANDIER is an element telling in which PROCESS the action should be 
performed. 


21.2. E VENT 


<EVL"NT name priority which > 

creates and returns an enabled IHEADER with no HANDLERS. The name may be an ATOM in the 
INTERRUPTS OBLIST nr a SIRING; if it is a STRING, EVENT does a LOOKUP or INSERT in 
< INTERRIIPTS> . If there already is an IHEADER associated with name, EVENT just returns it, ignoring 
the given priority. 

which must be given only for certain names: 

It must be a CHANNEL if and only if name is "CHAR" (or CHAR! -INTERRUPTS). In this case it is 
the input CHANNEL from the (pseudo-)terminal or Network socket whose received characters will 
cause the interrupt to occur, or the output CHANNEL to the pseudo-terminal or Network socket 
whose desired characters will cause the interrupt to occur. (See below. Pseudo-terminals are not 
available in the Tenrx and Tops-20 versions.) 

The argument must hr a LOCATIVE if and only if name is "READ" (or READ! -INTERRUPTS) or 
"WRITE" (or WRITE!-INirRRUPTS). In this case it specifies an object to be "monitored" for 
usage by (interpreted) MDl. programs (section 21.8.9). 

If the interrupt is external. MDL arranges for the operating system to signal its occurrences. 
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21.3. HANOI I R (the St lliR) 

CHANDLER iheader applicable process > 

creates a HANOI I R, adds it to the front of iheader's HANDLER list (first action to be performed), and 
returns it as a value, applicable may be any APPLICABLE object that takes the proper number of 
arguments. (None of the arguments can be QUOTEd: they must all be evaluated at call time.) process 
is the PROCESS in which the handler will be applied, by default whatever PROCESS was running when 
the interrupt occurred. 

The value returned by the handler is ignored, unless it is of TYPE DISMISS ( PRIMTYPE ATOM), in 
which case none of the remaining actions in the list will be performed. 

The processing of an interrupt’s actions can terminate prematurely if a handler calls the 5UBR 
DISMISS (see below). 


21.4. orr 

<01 F iheader) 

removes the association between i header and the name of its interrupt, and then disables iheader and 
returns it. (An error occurs if there is no association.) If the interrupt is external, MDL arranges for 
the operating system not to signal its occurrences. 

<Orr name which) 

finds the IHLAP1R associated with name and proceeds as above, returning the IHEADER, which must 
be given only for certain names , as for EVENT. Caution: if you <0FF "CHAR" ,INCHAN>, MDL will 
become deaf. 

< OF F handler ) 

returns handler after removing it from its list of actions. There is no effect on any other HANDLERS 
in the list. 

Now that you know how to remove IHEADERs and HANDLERS from their normal places, you need to 
know how to put tlirm back: 

< EVE NT iheader > 

If iheader was previously disabled or disassociated from its name, EVENT will associate and enable It. 
CHANDLER i header handler ) 
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If handler was previously removed from its list, HANDLER will add it to the front of /header's list of 
actions. Note that process cannot be specified. 


21.5. IUC APLR a nd H ANDL ER (the TYPEs) 

Both these TYPEs ate of PRIMTYPE VECTOR, but they do not PRINT that way, since they are self- 
referencing. Instead they PRINT as 


ft) pe most interesting-element 

The contents of IHfADERs ami HANDLERS can be changed by PUT, and the new values will then 
determine the behavior of MDL. 

Before describing the elements of these TYPEs in detail, here are a picture and a Pattern, both 
purporting to show how (hey look: 

#IHEA0ER [name: atom or which 
disabled? 

* > CHANDLER [* > #HANDLER [IHANDLER [] 

priority] < * + * 

applicable | applicable 

process] < process] 

< IMEADER COR ATOM CHANNEL LOCATIVE) 

COR '#I0SE 0 'HOSE -1> 

CHANDLER HANDLER COR HANDLER IHEADER) APPLICABLE PROCESS) 

FIX) 


21.5.1. IHEADER 

The elements of an IHEADER are as follows: 

(1) name of interrupt (ATOM, or CHANNEL if the name is "CHAR", or LOCATIVE if the name is 

"READ" or "WRITE") 

(2) non-mo if and only if disabled 

(3) first HANDIER, if any, else a icro-length HANDLER 

(4) priority 

If you lose track of an Illl ADTR, you can get it via the association: 

For "CHAR" interrupts. CGET channel INTERRUPT) returns the IHEADER or #FALSE () If there is 
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no association; <EVENT "CHAR" 0 channel') returns the IHEADER, creating it if there is no 
association. 

For "READ" interrupts. <GET locative READ! -INTERRUPTS) returns the IHEADER or IFALSE () if 
theie is no association: <CVENT "READ" 0 locative') returns the IHEADER, creating it if there is 
no association 

For "WRITE" interrupts. <GET locative WRITE ! -INTERRUPTS) returns the IHEADER or #FALSE () 
if there is no association: <EVENI "WRITE" 0 locative') returns the IHEADER, creating it if there 
is no association. 

Otherwise, the IHEADER is PUT on the name ATOM with the indicator INTERRUPT. Thus, for 
example. <GCT CLOCK INTERRUPTS INTERRUPT) returns the IHEADER for the clock interrupt or 
#EAIS( () if there is no association; <EVENT "CLOCK" 0) returns the IHEADER, creating it if 
there is no association. 


21.5.2. HANDIER 

A HANDLER specifies a particular action for a particular interrupt. The elements of a HANDLER are as 
follows: 

(II next HANDLER if any. else a zero-length HANDLER 

(2) previous HANOI [R or the IHEADER (Thus the HANDLERS of a given interrupt form a "doubly- 
linked list" chaining between each other and hack to the IHEADER.) 

(3) handler to lie applied (anything APPLICABLE that evaluates its arguments - the application 
is done not by APPLY hut by RUN I NT, which can take a PROCESS argument: see next line) 

(-1) PROCLSS in which the handler will be applied, or #PR0CESS 0, meaning whatever PROCESS 
was running when the interrupt occurred (In the former case. RUNINT is applied to the handler 
and its arguments in the currently running PROCESS, which causes an APPLY in the PROCESS 
stored in the HANDIER, which PROCESS must be RESUMABLE. The running PROCESS becomes 
RESUMABLE, and the stored PROCESS becomes RUNNING, but no other PROCESS variables (for 
example RESUMI R) are changed.) 


21.6. Oth er SUHRs 

<ON name applicable priority-Jix process which ) 

is equivalent to 
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< HANDLER <EVENT na me priority which) 
applicable process > 

ON is a combination 0 f EVENT and HANDLER: it creates (or finds) the IHEADER. associates and enable* 
it. adds a HANDLER to the front of the list (first to be performed), and returns the HANDLER. 

<DISABLE / header > 

is effectively <PH1 iheader 2 #10SE -1>. Actually the TYPE LOSE is unimportant, but the -1 
signifies that iheader is disabled. 

< T NAB l E iheadcr > 

is effectively <PUJ / header 2 #L0SE 0>. Actually the TYPE LOSE is unimportant, but the 0 
signifies that iheader is enabled. 


21.7. Pri oriti es an d 1 n temip t l evel s 

At any given time ihere is a defined interrupt level . This is a FIX which determines which 
interrupts can really "interrupt" - that is, cause the current processing to be suspended while their 
wants are satisfied. Normal, non-interrupt programs operate at an interrupt level of 0 (zero). An 
interrupt is processed at an interrupt level equal to the interrupt's priority. 

21.7.1. Interrupt Processing 

Interrupts "actually" occur only at well-defined points in time: during a call to a Subroutine, or at 
critical places within Subroutines (for example, during each iteration of MAPF on a LIST, which 
may be circular), or while a PROCESS is "BLOCKED" (sec below). No interrupts can occur during 
garbage collection. 

What actually happens when an enabled interrupt occurs is that the priority of the interrupt is 
compared with the current interrupt level, and the following is done: 

If the priority is greater than the current interrupt level, the current processing is "frozen in its 
tracks" and processing of the action(s) specified for that interrupt begins. 

If the priority is less than or equal to the current interrupt level, the interrupt occurrence is queued 
- that is. the fact that it occurred is saved away for processing when the interrupt level becomes low 
enough. 

When the processing of an interrupt's actions is completed, MDL usually (I) "acts as if" the 
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previously-existing imerrupt level is restored, and processing continues oil what was left off 
(perhaps for no time duration); and (2) "acts as if” any queued interrupt occurrences actually 
occurred right then, in their original order of occurrence. 

21.7.2. INT-ILVFl 

The SUBR INT-LEVEL is used to examine and change the current interrupt level directly. 

< INI -LEVEl> 

simply returns the current interrupt level. 

CINT-LEVfL fix > 

changes the interrupt level to its argument and returns the previously -existing interrupt level. 

If IN T - L L VI l lowers the interrupt level, it does not "really" return until all queued occurrences of 
interrupts of priority higher than the target priority have been processed. 

Setting the INT-LTVrL rxlrrmrJy high (for example, <INT-LEVEL <CHTYPE <MIN> FIX») effectively 
disables all interrupts (hut occurrences of enabled interrupts will still be queued). 

If LISTEN or ERROR is called when the INT-LEVEL is not zero, then the typeout will be 

I.ISTENING-AT-IEVEL / PROCESS p INT-LEVEL / 

21.7.3. DISMISS 

DISMISS permits a handler to return an arbitrary value for an arbitrary ACTIVATION at an arbitrary 
interrupt level. The call is as follows: 

< DISMISS valuaany activation int -level :fix> 

where only the value is required. If activation is omitted, return is to the place interrupted from, and 
value is ignored. If mt-level is omitted, the INT-LEVEL prior to the current interrupt is restored. 


J 
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21-8. Specific Interrupts 

Descriptions of the characteristics of particular "built-in" MDL interrupts follow. Each is named by 
its STRING name. Expect this list to be incomplete yesterday. 

"CHAR" is currently the most complex built-in interrupt, because it serves duty in several ways. 
These different ways will be described in several different sections. All ways are concerned with 
characters or machine words that arrive or depart at unpredictable times, because MDL is 
communicating with a person or another processor. Each "CHAR" IHEADER has a CHANNEL for the 
element that names the interrupt, and the mode of the CHANNEL tells what kinds of "CHAR" 
interrupts occur to lie handled through that IHEADER. 

(1) If the CHANNEL is for input. "CHAR" occurs every time an "interesting" character (see below) 

is received from the CIIANNf L’s real terminal, or any character is received from the 
CIIANNI L's pseudo-terminal, or a character or word is received from the CHANNEL’S Network 
socket, or indeed (in the ITS version) the operating system generates an interrupt for any 
reason. 

(2) If the CHANNEL is for output to a pseudo-terminal or Network socket, "CHAR* occurs every 

lime a character or word is wanted. 

(3) If the CHANNEL is for output to a terminal. "CHAR" occurs every time a line-feed character is 

output or (in the ITS version) the operating system generates a screen-full interrupt for 
the terminal. 


21.8.1. "CHAR" received 

A handler for an input "CHAR" interrupt on a real terminal must take two arguments: the 
CHARACTER which was typed, and the CHANNEL on which it was typed. 

In the ITS version, the "interesting" characters are those "enabled for interrupts" on a real terminal, 
namely through ‘"G, through and DEL (that is. ASCII codes 0-7, 13-37, and 177 octal). 

In the Tenrv and Tnps-20 versions, the operating system can be told which characters typed on a 
terminal should cause this interrupt to occur, by calling the SUBR ACTIVATE-CHARS with a STRING 
argument containing those characters (no more than six. all with ASCII codes less than 33 octal). If 
called with no argument. ACTIVATE-CIIARS returns a STRING containing the characters that currently 
interrupt. Initially, only A G, A S, and ^0 interrupt. 

An initial MDL already has "CHAR" enabled on .INCHAN with priority 8 (eight), the SUBR QUITTER 
for a handler, to run in ^PROCESS 0 (the running PROCESS): this is how A G and *S are processed. In 
addition, every time a new CHANNEL is OPENed in "READ" mode to a terminal, a similar IHEADER and 
HANDLER are associated with that new CHANNEL automatically. These automatically-generated 
IHEADERs and HANDLERS use the standard machinery, and they can be DISABLEd or OFFed at will. 
However , the IHEADER for .INCHAN should not be OFFed: MDL knows that S is typed only by an 
interrupt! 
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Example: the following causes the given message to be printed out whenever a A Y is typed on 
.INCHAN: 

<SE T H < HANOI I R <GET . INCHAN INTERRUPT) 

FUNCTION ((CHAR CHAN) 

*DECL ((VALUE) ANY (CHAR) CHARACTER (CHAN) CHANNEL) 

< AND <==? .CHAR ! \ A Y> 

<I'RINC " [Some of my best friends are A Ys.] ">>)>>i 
^HANDLER FUNCTION ((CHAR CHAN) ...) 

<♦ 2 A Y [Some of my best friends are A Ys.] 2>S 
4 

COTE .HH 

#HANDLER #EUNC1I0N (...) 

Note that occurrences of "CHAR" do ncH wait for the S to be typed, and the interrupting character is 
omitted from the input stream. 

A "CHAR" interrupt can also he associated with an input CHANNEL open to a Network socket ("NET" 
device). A handler gets applied to a NL ESTATE array (which see) and the CHANNEL. 

In the ITS version, a "CHAR" interrupt can also be associated with an input CHANNEL open to a 
pseudo-terminal ("STY" device and friends). An interrupt occurs when a character is available for 
input. These interrupts are set up in exactly the same way as real-terminal interrupts, except that a 
handler gets applied to only one argument, the CHANNEL. Pseudo-terminals are not available in the 
Tenex and Tops-20 versions. 

For any other flavor of ITS channel interrupt, a handler gets applied to only one argument, the 
CHANNEL. 


21.8.2. "CHAR" wanted 

A "CHAR" interrupt can be associated with an output CHANNEL open to a Network socket ("NET* 
device). A handler gets applied to a NE T STATE array (which see) and the CHANNEL. 

In the ITS version, a "CHAR” interrupt can also be associated with an output CHANNEL open to a 
pseudo-terminal ("STY" device and friends). An interrupt occurs when the program at the other end 
needs a character (and the operating-system buffer is empty). A handler gets applied to one 
argument, the CHANNEL. Pseudo-terminals are not available in the Tenex and Tops-20 versions. 


21.8.3. "CHAR" for new line 

A handler for an output "CHAR" interrupt on a real terminal must take one or two arguments (using 
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"OPTIONAL" or "TUPLE"): if Mvo arguments are supplied by the interrupt system, they are the line 
number ( T I X) and the CHANNEL, respectively, and the interrupt is for a line-feed; if only one 
argument is supplied (only in the ITS version), it is the CHANNEL, and the interrupt is for a full 
terminal screen. Note: the supplied line number comes from the CHANNEL, and it may not be 
accurate if the program alters it in subtle ways, for example, via IMAGE calls or special control 
characters. (The program can compensate by PUTting the proper line number into the CHANNEL.) 

21.8.4. "GC" 

| 

"GC" occurs just after every garbage collection. Enabling this interrupt is the only way a program 
can know that a garbage collection has occurred. A handler for "GC" takes three arguments. The 
first is a El OAT indicating the number of seconds the garbage collection took. The second argument 
is a FIX indicating the cause of the garbage collection, as follows (chapter 22): 

0. Program called GC. 

1. Movable storage was exhausted. 

2. Control stack overflowed. 

3. Top-level 1 VALs overflowed. 

4. OVAL vector overflowed. 

5. TYPE vector overflowed. 

6. Immovable garbage-collected storage was exhausted. 

7. Internal stack overflowed. 

8. Both control and internal stacks overflowed (rare). 

9. Pure storage was exhausted. 

10. Second, exhaustive garbage collection occurred. 

The third argument is an ATOM indicating what initiated the garbage collection: GC-READ, BLOAT, 

GROW, LIST. VECTOR. SET. SETG, TRCEZE, GC, NEWTYPE, PURIFY, PURE-PAGE-LOADER (pure 
storage was exhausted), or 1N1FRRUPT-IIANDLER (stack overflow, unfortunately). 


21.8.5. "01VI RT-AGC" 

"DIVERT -AGC" ("Automatic Garbage Collection") occurs just before a deferrable garbage collection 
that is needed because of exhausted movable garbage-collected storage. Enabling this interrupt is 
the only wav a program can know that a garbage collection is about to occur. A handler takes two 
arguments; a FIX telling the number of machine words needed and an ATOM telling what initiated 
the garbage collection (see above). If it wishes, a handler can try to prevent a garbage collection by 
calling BLOAT with the FIX argument. If the pending request for garbage-collected storage cannot 
then be satisfied, a garbage collection occurs anyway. AGC-FLAG is SET to T while the handler is 
running, so that new storage requests do not try to cause a garbage collection. 
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21.8.6. "CLOCK" 

"CLOCK", when enabled, occurs every half second (the ITS "slow-clock" tick). It is not available in 
the Tencx and Tops-20 versions. It wants handlers which take no arguments. Example: 

<0N "CLOCK" <FllNCTION () <PR1NC "TICK "» 1> 

21.8.7. "BLOCKED" 

"BLOCKED” occurs whenever any PROCESS (not only the PROCESS which may be in a HANDLER) starts 
waiting for terminal input: that is. an occurrence indicates that somewhere, somebody did a READ, 
READCHR, Nl X1CIIR, 1YI, etc. to a terminal. A handler for a "BLOCKED" interrupt should take one 
argument, namely the PROCESS which started waiting (which will also be the PROCESS in which the 
handler runs, if no specific one is in the HANDLER). 

Example: the following will cause MDL to acquire a * prompting character. 

CON "BLOCKED" IFUNCTION ((IGNORE) CPRINC !\*>) 5> 

21.8.8. "UNBLOCKED” 

"UNBLOCKED" occurs whenever a S tLSC) is typed on a terminal if a program was hanging and 
waiting for input, or when a TYI call (which see) is satisfied. A handler takes one argument: the 
CHANNEL via which the $ or character is input. 

21.8.9. "READ" and "WRIIE" 

"READ" and "WRITE" are associated with read or write references to MDL objects. These interrupts 
are often called "monitors", and enabling the interrupt is often called "monitoring" the associated 
object. A "read reference" to an ATOM’S local value includes applying BOUND? or ASSIGNED? to the 
ATOM; similarly for a global value and GASSIGNED?. If the INT-LEVEL is too high when "READ" or 
"WRITE" occurs, an error occurs, because occurrences of these interrupts cannot be queued. 

Monitors are set up with FVFNT or ON, using a locative to the object being monitored as the extra 
which argument, just as a CHANNEL is given for "CHAR". A handler for "READ" takes two arguments: 
the locative and the TRAME of the function application that makes the reference. A handler for 
"WRITE" takes three arguments: the locative, the new value, and the FRAME. For example: 

<SET A (1 2 3 ) >J 
(1 2 3) 

<SET B <AT .A 2>>S 
r'LOCL 2 
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CON "WR lit" CFUNCTION (OBJ VAL FRM) 

#0ECL ((VALUE VAL) ANY (OBJ) LOCATIVE (FRM) FRAME) 

<CRLF> 

CPRINC "Program changed "> 

< PR IN 1 .OBJ> 

CPRINC " to "> 

C PR IN 1 . VAL> 

CPRINC " via "> 

C PR IN 1 . FRM> 

CCRLF» 

4 0 . B>$ 

^HANOI I R ^FUNCTION (...) 

Cl .A 10>I 
(10 2 3) 

C2 .A 20 >$ 

Program changed #LOCL 2 to 20 via #FRAME PUT 
( 10 20 3) 

corr "write" . b>s 

IHLAOFR #L0CL 20 



21.8.10. "SYSOOWN" 

"SYSDOWN" occurs when a system-going-down or system-revived signal is received from ITS. It is 
not available in the Tenex and Tops-20 versions. If no IHEADER is associated and enabled, a 
warning is printed on t lie terminal. A handler takes one argument: a FIX giving the number of 
thirtieths of a second until the shutdown (-1 for a reprieve). 


21. 8.11. "ERROR" 

In an effort to simplify error handling by programs. MDL has a facility allowing errors to be 
handled like interrupts. SETGing ERROR to a user function is a distasteful method, not safe if any 
bugs are around. An "ERROR" interrupt wants a handler that takes any number of arguments, via 
"TUPLE" . When an error occurs, handlers are applied to the FRAME of the ERROR call and the TUPLE 
of ERROR arguments. If a given handler "takes care of the error", it can ERRET with a value from the 
ERROR FRAME, after having done CINT-LEVEL 0>. If no handler takes care of the error, it fails into 
the normal ERROR. 

If an error occurs at an I NT- L EVE L greater tlia.i or equal to that of the "ERROR" interrupt, real 
ERROR will be called, because "ERROR" interrupts cannot be queued. 


■ 
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21.8.12. "IPC" 

"IRC" occurs when a message is received on the ITS IPC device (chapter 23). It is not available in 
the Tenex and Tnps-20 versions. 


21.8.13. " INFERIOR" 

"INFERIOR" occurs when an inferior ITS process interrupts the MDL process. It is not available in 
the Tenex and Tops-20 versions. A handler takes one argument: a FIX between 0 and 7 inclusive, 
telling which inferior process is interrupting. 


21.8. I I. "RUN! " and "Rl A| T" 

These are noi available in the Tenex and Tops-20 versions. 

"RUNT", if enabled, occurs once . N seconds of MDL running time (CPU time) after calling 
<RUNTIMER N:fi\ -or-llost > , which returns its argument. A handler takes no arguments. If RUNTIMER 
is called with no argument, it returns a FIX, the number of run-time seconds left until the interrupt 
occurs, or *FAlsr ( ) if the interrupt is not going to occur. 

"REAIT", if enabled, occurs every N seconds of real-world time after calling <REALTIMER N:fix-or- 
flojt>, which returns its argument. A handler takes no arguments. <REALTIMER 0> tells the 
operating system not to generate real-time interrupts. If REALTIMER is called with no argument, it 
returns a FIX, the number of real-time seconds given in the most recent call to REALTIMER with an 
argument, or #FAISF ( ) if REALTIMER has not been called. 


21.8.15. "Dangerous" Interrupts 

"MPV" ("memory protection violation”) occurs if MDL tries to refer to a storage address not in its 
address space "PURI" occurs if MDL tries to alter read-only storage. "ILOPR" occurs if MDL 
executes an illegal instruction ("operator"). "PARITY" occurs if the CPU detects a parity error in 
MDL’s address space. All of these require a handler that takes one argument: the address (TYPE 
WORD) following the instruction that was being executed at the time. 

"IOC" occurs if MDL tries to deal illegally with an I/O channel. A handler must take two 
arguments: a three-element FALSE like one that OPEN might return, and the CHANNEL that got the 
error. / 

Ideally, these interrupts should never occur. In fact, in the Tenex and Tops-20 versions, these 
interrupts always go to the superior operating-system process instead of to MDL. In the ITS 
version, if and when a "dangerous" interrupt docs occur: 
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If iio IHEADFR is associated with the interrupt, then the interrupt goes to the superior 
operating-system process. 

If an I HEADER is associated but disabled, the error DANGEROUS-INTERRUPT-NOT-HANDLED occurs 
(FILE-SYSTEM-ERROR for "IOC"). 

If an I HE ADI R is associated and rnablcd, but the INT-LEVEL is too high, the error ATTEMPT-TO- 
DEFER-UNDEFERABLE- INTERRUPT occurs. 


21.9. User-D ef i n ed I 1 itcrrn p js (I NTERRUPT) 

If the interrupt name given to EVENT or ON is md one of the standard predefined interrupts of MDL. 
they will gleefully create an ATOM in <INTERRUPTS> and an associated IHEADER anyway, making the 
assumption that you are setting up a "program-defined" interrupt. 

Program-defined interrupts are made to occur by applying the SUBR INTERRUPT, as in 

CINTERRUPT name argl ... argN> 

where name is a STRING, ATOM or IIIEADER, and argl through argN are the arguments wanted by the 
handlers for the interrupt. 

If the interrupt specified by INTERRUPT is enabled, INTERRUPT returns T; otherwise it returns 
#FALSE ( ). All the usual priority and queueing rules hold, so that even if INTERRUPT returns T, it 
is possible that nothing "really happened" (yet). 

INTERRUPT can also he used to cause "artificial” occurrences of standard predefined MDL interrupts. 

Making a program-defined interrupt occur is similar to calling a handler directly, but there are 
differences. The value returned by a handler is ignored, so side effects must be used in order to 
communicate information hack to the caller, other than whether any handler ran or will run. One 
good nsp for a program-defined interrupt is to use the priority and queueing machinery of INT- 
LEVEL to control the execution of functions that must not run concurrently. For example, if a 
"CHAR" handler just deposits characters in a buffer, then a function to process the buffered 
characters should probably run at a higher priority level -- to prevent unpredictable changes to the 
buffer during the processing - and it is natural to invoke the processing with INTERRUPT. 

In more exotic applications, INTERRUPT can signal a condition to be handled by an unknown 
number of independent and "nameless" functions. The functions are "nameless” because the caller 
doesn't know their names, only the name of the interrupt. This programming style is modular and 
event-driven, and it is one way of implementing "heuristic" algorithms. In addition, each HANDLER 
has a PROCESS in which to run its handler, and so the different handlers for a given condition can 
do their thing in different environments quite easily, with less explicit control than when using 
RESUME. 
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21.10. Walling for luieriupts 


21.10.1. HANG 

OIANG /v ,',y> 

suspends execution, mteiiuptilily. witlmul consuming any CPU time, potentially forever. HANG Is 
handy «o ( a program that cannot do anything until an interrupt occurs. If the optional pred is 
given, it is evaluated every time rn interrupt occurs and is dismissed back into the HANG; if the 
result of evaluation is not I Al SI , HANG unhangs and returns it as a value. If pred is not given, 
there iiad better he a named ACI1VA1 ION somewhere to which a handler can return. 


21.10.2. SI I I P 

<Sltf P timedi v or - UoM pred > 

suspends execution, intorruptihly. without consuming any CPU time, for time seconds, where time is 
non-negative, and then returns 1 . pred is the same as for HANG. 
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Chapter 22. Storage Management 


The reason this chapter comes so late in this document is that, except for special cases, MDL 
programs have their storage needs handled automatically. There is usually no need even to consider 
storage management, except as it affects efficiency (chapter 24). This chapter gives some 
explanation of why this is so. and covers those special means by which a program can assume 
control of storage management. 

The MDI. address space is divided into five parts, which are usually called 

(1) movable garbage-collected space, 

(2) immovable space (both garbage-collected and not), 

(3) user pnre/page space, 

(4) pure-RSUBR mapping space, and 

(5) internal storage. 

Internal storage occupies both the highest and lowest addresses in the address space, and its sire 
never changes as MDL. executes. The other spaces can vary in size according to the needs of the 
executing program. Generally the interpreter allocates a contiguous set of addresses for each space, 
and each space gradually fills up as new objects are created and as disk files are mapped in. The 
action taken when a space becomes full varies, as discussed below. 


22.1. M ova hie Garbage-collected St orage 

Most storage used explicitly by MDL programs is obtained from a pool of free storage managed by 
a "garbage collector". Storage is obtained from this pool by the SUBRs which construct objects. 
When such a 5IIIIR finds that the pool of available storage is exhausted, it automatically calls the 
garbage collector. 

The garbage collector has two algorithms available to it: the "copying" algorithm, which is used by 
default, and the "mark-sweep" algorithm. Actually, one often speaks of two separate garbage 
collectors, the copying one and (he "mark-sweep" one, because each is an independent module that 
is mapped in to the interpreter's internal storage from disk only during garbage collection. For 
simplicity, this document speaks of the" garbage collector, which has two algorithms. 
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The garbage colleclor examines the storage pool and marks all the objects there, separating them 
into two classes: those which cannot possibly be referenced by a program, and those which can. 
The "copying" algorithm then copies the latter into one compact section of the pool, and the 
remainder of the pool is made available for newly constructed objects. The "mark-sweep" algorithm, 
instead, puts ail objects in the former class (garbage) into "free lists", where the object-construction 
SUBRs can find them and re-use their storage. 

If the request for more storage still cannot be satisfied from reclaimed storage, the garbage collector 
will attempt to obtain more total storage from the operating system under which MDL runs. (Also, 
if there is a gross superfluity of storage space, the garbage collector will politely return some 
storage to the operating system.) Only when the total system resources are exhausted will you 
finally lose 

Thus, if you just "forget about" an object, that is, lose all possible means of referencing it, its 
storage area is automatically reclaimed. "Object" in this context includes that stack-structured 
storage space used in PROCF.SSes for functional application. 


22.1. 1. Stacks and Other Internal Vectors 

Control stacks arc used in MDL to control the changes in environment caused by calling and 
binding. Each act ire PROCESS has its own control stack. On this stack are stored LVALs for ATOMs; 
PRIMTYPF TUPIEs, which arc otherwise like VECTORs: PRIMTYPE FRAMES, which are generated by 
calling Subroutines: and ACTIVATIONS, which are generated by calling FUNCTIONS with named 
ACTIVATIONS. PROG, and RFPEAT. TAG and LLOC can make TAGs and LOCDs (respectively) that refer to 
a specific place on a specific control stack. (LEGAL? returns T if and only if the portion of the 
control stack in which it' argument is found or to which its argument refers is still active, or if its 
argument doesn't care about the control stack. The garbage collector may change a non-LEGAL? 
object to TYPE ILLEGAL before reclaiming it.) As the word "stack" implies, things can be put on it 
and removed from it at only one end, called the top. It has a maximum size (or depth), and 
attempting to put too many things on it will cause overflow. A stack is stored like a VECTOR, and 
it must be GROWn if and when it overflows. 

A control stack is actually two stacks in one. One section is used for "top-level" LVALs -- those SET 
while the ATOM is not bound by any active Function’s argument LIST or Subroutine's SPECIAL 
binding - and the other section is used for everything else. Either section can overflow, of course. 
The top-lcvel-LVAL section is below the other one, so that a top-level LVAL will be found only if the 
ATOM is not currently bound elsewhere, namely in the other section. 

MDL also has an internal stack, used for calling and temporary storage within the interpreter and 
compiled programs, it too is stored like a VECTOR and can overflow. There are other internal 
vectors that can overflow: the "global vector" holds pairs ("slots") of ATOMs and corresponding GVALs 
("globally bound" or GBOIIND? means that the AT'M in question is in this vector, whether or not it 
currently has a global value), and the "TYPE vector" holds TYPE names (predefined and NEWTYPEs) and 
how they are to be treated. 
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22.2. Innnovalilc S i oragc 


22.21. Carbagr-rolircted: FREEZE 

In very special circumstances. such as debugging RSUBRs. you may need to prevent an object from 
being moved by the garbage collector. FREEZE takes one argument, of PRIMTYPE VECTOR, UVECTOR, 
STRING, BYTES or TUPLE. It copies its argument into non-moving garbage-collected space. FREEZE 
returns the copy CIITYPEd m its PRIMTYPE, except in the case of a TUPLE, which is chaneed to a 
VECTOR. 6 


22.2.2. Non -garbage-collected: STORAGE (the PRIMTYPE) 

An object of PR1MIYPL SlORAGt is really a frozen UVECTOR whose UTYPE is of PRIMTYPE WORD, but 
it is always pointed to by something internal to MDL and thus is never garbage-collectible. The use 
of FREEZE is always preferable, except when for historical reasons a STORAGE is necessary. 


22.3. Othe r Storage 

User pure/page space serves two purposes. First, when a user program PURIFYs (see below) MDL 
objects, they arc copied into this space. Second, so-called hand-crafted RSUBRs (assembled but not 
compiled) can call on the interpreter to map pages of disk files into this space for arbitrary 
purposes. 

Pure-RSUBR mapping space is used by the interpreter to dynamically map pages of pure compiled 
programs into ami out of the MDL address space. Pure code can refer to impure storage through 
the transfer vector", another internal vector. This space is the most vulnerable to being compressed 
in size by the long-term growth of other spaces. 

Internal storage has both pure and impure parts. The interpreter program itself is pure and 
sharablc. while impure storage is used for internal pointers, counters, and flags, for example, 
pointers to the boundaries of other spaces. In the pure part of this space are most of the ATOMS in 
an initial MDL. along with their 0BLI5T buckets (LISTs) and GVAL slots (a pure extension of the 
global vector), where possible. A SET or SETG of a pure ATOM automatically impurifies the ATOM and 
as much of its OBLIST bucket as needs to be impure. 
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22.4. G arbage (iollectjinn: Details 

When ciilier of the garbage-collected spaces (movable or immovable) becomes full, MDL goes 
through the following procedure: 

(1) A "D1VERI-AGC" interrupt occurs if the garbage collection can be deferred temporarily by 
shifting hoiiudaiies between storage spaces slightly. The interrupt handler may postpone a garbage 
collection by moving hnumlarirs itself with a call to BLOAT (below). 

(2) The garbage collectm begins execution. The "copying" algorithm creates an inferior operating- 
system process tnameil AGC hi the ITS version) whose address space is used to hold the new copies of 
lion-garbage objects. M I » I gains access to the inferior's address space through two pages ("frontier" 
and "window") in its internal space that are shared with the inferior. If the garbage collection 
occurred because movable garbage-collected space was exhausted, then the "mark-sweep" algorithm 
might be used instead (see below), and no inferior process is created. 

(3) The gatbage collector marks all objects that can possibly be referenced hereafter. It begins with 
the <MAII!'' PROCESS and the currently running PROCESS <ME>, considered as vectors containing the 
control stacks, object pointers in live registers, etc. Every object in these "PROCESS vectors" is 
marked "accessible", and every element of these objects (bindings, etc ), and so on recursively. The 
"copying" algorithm moves objects into the inferior process's address space as it marks them. 

(41 If the garbage collection is "exhaustive" -• which is possible only in the copying" algorithm — 
then both the chain of associations and top-level local/global bindings are examined thoroughly, 
which takes nmie time but is more likely to uncover garbage therein In a normal garbage 
collection these constructs arc not treated specially. 

(5) Finally, the "mark-swrop" algorithm sweeps through the storage space, adding unmarked objects 
to the internal fiee lists for later re-use. The "copying" algorithm maps the inferior process's 
address spate into MDL’s own, replacing old garbagey storage with the new compact storage, and 
the inferior process is destroyed. 


22.5. GC 

<GC nnn:ti\ c\h ?da!se-or-gny ms-frcq:fix > 

causes t lie garbage collector to run and returns the total number of words of storage reclaimed. All 
of its arguments are optional: if they arc not supplied, a call to GC simply causes a "copying" 
garbage collection 

If mm is explicitly supplied as an argument, a garbage-collection parameter is changed permanently 
before the garbage collector runs, min is the smallest number of words of "free" (unclaimed. 
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available fm use) movable garbage-collected storage the garbage collector will be satisfied with 
having after it is done each time. Initially it is 8192 words. If the total amount of reclaimed 
storage is less than mm. the garbage collector will ask the operating system for enough storage (in 
102‘1-wold blocks! to make it up. N R : the system may be incivii enough not to grant the request: in 
that case, the garbage collector will be content with what it has, unjess that is not enough to satisfy 
a pending request for storage. Then it will inform you that it is losing. A large mn will result in 
fewer total gaibage collections, but they will take longer since the totel quantity of storage to be 
dealt with will grtirially lie larger Smaller mms result in shorter, more frequent garbage collections. 

tells whether or not this gaibage collection should be "exhaustive". It is optional, a FAcSE by 
default The diffeiencr between normal and exhaustive "copying" garbage collections is whether 
certain kinds of stoiage that require complicated treatment (for example, associations! are reclaimed. 
An exhaustive gaibage collection occurs every eighth time that the "copying" algorithm is used, or 
when GC is called with this argument true, or when a normal garbage collection cannot satisfy the 
storage request 

mi-ireu gives the number of times the "mark-sweep" algorithm should be used hereafter for every 
time the normal "lopying algorithm is uses! Giving 0 for ms beq means never to use the "mark- 
sweep algorithm, and giving <CIITYPl <M1N> f IX> means (effectively) always to use it. The "mark- 
sweep" algorithm uses considerably less processor time than the "copying" algorithm, but it never 
shrinks the fire stoiage pool, and in fact the pool can become fragmented. The "mark-sweep" 
algorithm could he useful in a program system (such as the compiler) where the site of the pool 
rarely changes, but objects are created and thrown away continuously. 


22.IL_Bl.OA! 

BLOAT is used to cause a temporary expansion of the available storage space with or without 
changing the garbage-collection parameters. BLOAT is particularly useful for avoiding unnecessary 
garbage collections when loading a large file. It will cause (at most) one garbage collection, at the 
end of which the available storage will be at least the amount specified in the call to BLOAT. 
(Unless, of course, the operating system is cranky and will not provide the storage. Then you will 
get an error. <1 RRI 1 l' from this error will cause the BLOAT to return 1, which usually Just causes 
you to lose at a latrr time - unless the operating system feels nicer when the storage Is absolutely 
necessary.) 

A call to Rl OAT looks like this: 

< BLOAT (re rdk Id $lb tip sto pslk 

mm pl(l p^lb pt\p imp pur dpstk dslk> 

where all arguments on the first line above are FIX, optional (0 by default), and indicate the 
following: 
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tr,K nuinlirr of words of free movable storage desired (for LISTs, VECTORS, ATONs, etc.) 

sfA: number of words of free control-stack space desired (for functional applications and 
binding of ATOMO 

Ul: number of new top-level l.VAls for which to leave space (SETs of ATONs which are not 
cm rent ly bound! 

I'Jb'. uumher of new (.VAt s for which to leave space (in the global vector) 

t \ p: number of new TYPE definitions for which to leave space (in the TYPE vector) 

sfo: iiumliei of words of immovable gaibage-collected storage desired 

number of winds of fiee internal-stack space desired (for READing large STRINGS, and 
calling routines within the interpreter and compiled programs) 

Arguments on the second line above are also FIX and optional, but they set garbage-collection 
parameters permanently, as follows: 

mm: as for GC 

pid: number of slots for LVAls added when the spate for top-level LVAls is expanded (initially 
641 

numliei of slots for GVAls added when the global vector is grown (initially 64) 

pt > P- nuntlier of slots for TYPls added when tlie TYPE vector is grown (initially 32) 

irrp: number of words of iuiuiovable garbage-collected storage added when it is expanded 
(initially 1024) 

pur: number of ssoids reserved for pure compiled programs, if possible (initially 0) 

dp'.tk: most desirable sue for the internal stack, to prevent repeated shrinking and GROWing 
(initially 512) 

dst*: most desirable site for the contiol stack (initially 40%) 

BLOAT returns the actual number of words of free movable garbage-collected storage available when 
it is done. 
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22.7. B IOAI-STAT 

BLOAT -ST AT can lie used with BIOAT to "tune* the garbage collector to particular program 
requirements. 

< HI OAT - S TAT length- 2 'xivector > 

fills the u\r,t iv with infonnalion about the state of storage of MDL. The argument should be a 
UVECTOR of length 27 ami UTYPE FIX. If 8L0AT-STAT does not get an argument, it will provide its 
own UVrCTOR. I he information returned is as follows: the first 8-elements -indicate the number of 
garbage collections that are attrihutahle to certain causes, and the other 19 give information about 
certain airas of storage In detail: 

1. number of gaihage collections caused by exhaustion of movable garbage-collected storage 

2. ditto by overflow of contiol stack(s) 

3. ditto by oveiflow of top-level-LVAL section of control stack(s) 

4. ditto by overflow of global vector 

5. ditto by overflow of TYPE vector 

6. ditto by exhaustion of immovable garbage-collected storage 

7. ditto by overflow of internal stack 

8. ditto by overflow of both stacks at the same time (rare) 

9. number of words of movable storage 

10. number of words of movable storage used since last BLOAT-STAT 

11. i’',.:\immn number of wmds of movable storage ever existing 

12. number of words of movable storage used since MDL began running 

13. maximum sj;e of control stack 

14. number of words on control stack in use 

15. maximum si/e of contiol stark(sl ever reached 

16. number of slots for top-level IVALs 

17. number of top-level l VAI s existing 

18. number of slots for GVALs in global vector 

19. number of GVALs existing 

20. number of slots for IYPI s in TYPE vector 

21. number of TYPI s existing 

22. number of words of immovable garbage-collected storage 

23. number of words of immovable storage unused 

24. sire of largest unused contiguous immovable-storage block 

25. number of words on internal stack 

26. number of words on internal stack in use 

27. maximum sire of internal stack ever reached 
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22.8. GC- HON 

<GC-MON ptcd> 

("garbage-collector monitor' 1 ) determines whether or not the interpreter will hereafter print 
information on the terminal when a garbage collection starts and finishes, according to whether or 
not its argument is true It returns the previous state. Calling it with no argument returns the 
current stale. The initial state is false. 

When typing is enabled, the “copying" garbage collector prints, when it starts: 

GIN reason subr-thst-caused.-atom 
and. when it finishes: 

GOU I sec ends - needed 

The "mark-sweep" garbage collector prints MSGIN and MSGOUT instead of GIN and GOUT. 


22.9. Related Subroutines 

► 

Two SURRs. described nest, use oniy part of the garbage-collector algorithm, in order to find all 
pointers to an object. GC-IHiMP and GC-READ, as their names imply, also use part in order to 
translate between MDI. objects and binary representations thereof. 

22.9.1. SUBSTITUTE 

<SUBSTI1UTE new: try old tuny) 

returns o’j. after causing a miniature garbage collection to occur, during which all references to old 
are changed so as to tefer to new. Neither argument can be of PRIMTYPE STRING or BYTES or LOCO 
or live on the control stack, unless both arc of the same PRIMTYPE. One TYPE name cannot be 
substituted for another. One of the few legitimate uses for it is to substitute the “right" ATOM for 
the “wrong" one. after OBI 1ST s have been in the wrong state. This is more or less the way ATOMs are 
inipurified. It is also useful for unlinking RSUBRs. SUBSTITUTE returns old as a favor: unless you 
hang onto old a t that point, it will be garbage. 

22.9.2. PURIFY 

< PURIFY any-/ ... *n>-/V> 






- 
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returns its l.ist argument, after causing a miniature garbage collection that results in all the 
arguments becoming pure and sharablc. and ignored afterward by the garbage collector. No 
argument can live on the control stack or be of PRIMTYPE PROCESS or LOCO or ASOC. Sharing 
between nperaling-systrin processes actually occurs after a SAVE, if and when the SAVE file is 
RESTOREd. 
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Chapter 23. MDL as a System Process 


This chapter treats MDL considered as executing in an operating-system process, and interactions 
between MDL and other operating-system processes. See also section 21.8.13. 


2 3.1. T I MF 

TIME takes any nuniher of arguments, which are evaluated but ignored, and returns a FLOAT giving 
the number of seconds of CPU time the MDL process has used so far. TIME is often used in 
machine-level debugging to examine the values of its arguments, by having MDL’s superior process 
(say. DDT) plant a breakpoint in the code for TIME. 


23 2. Names 


<UNAME> 

returns a STRING which is the "user name" of MDL’s process. This is the "uname" process-control 
variable in t he ITS version and the logged-in directory in the Tenex and Tops-20 versions. 

<Xl)NAME> 

returns a STRING which is the "intended user name" of MDL’s process. This is the "xuname" process- 
control variable in the ITS version and identical to <UNAME> in the Tenex and Tops-20 versions. 

< JNAME) 

returns a STRING which is the "job name" of MDL's process. This is the "jname" process-control 
variable in the ITS version and the SETNM name in the Tenex and Tops-20 versions. The characters 
belong to the "sixhit" or "printing" subset of ASCII, namely those between <ASCII *40*> and 
<A5CII * 1 37* > inclusive. 

<X JNAME > 
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returns a SIRING wliicli is the "intended job name" of MDL's process. This is the "xjiume" process- 
control variable in the ITS version and identical to <JNAME> in the Tenex and Tops-20 versions. 


23.3. E xits 

< LOGOUT) 

attempts to log out the process in which it is executed. It will succeed only if the MDL is the top- 
level process, that is. it is running disowned or as a daemon. If it succeeds, it of course never 
returns. If it does not, it returns IFALSE (). 

<QU11 > 

causes NIDI, to stop running, in an orderly manner. In the ITS version, it is equivalent to a 
.L0G0U1 1 , instruction In the Tenex and Tops-20 versions, it is equivalent to a control-C signal, 
and control passes to the superior process. 

<VAI.RET string- or fix) 

("value return") seldom returns. It passes control back up the process tree to the superior of MDL, 
passing its argument as a message to that superior. If it does return, the value is #FALSE (). If the 
argument is a STRING, it is passed to the superior as commands to be executed, via .VALUE in the 
ITS version and RSCAN in the Tops-20 version. If the argument is a FIX, it is passed to the superior 
as the "effective address" of a .BREAK 16, instruction in the ITS version and ignored in other 
versions. 


The MDL Programming Language 


23.4. Inter- process Communication 

All of the SUBRs in this section are available only in the ITS version. 

The I PC ("inter-process communication ") device is treated as an I/O device by ITS but not 
explicitly so by MDI.: that is, it is never OPENcd. It allows MDL to communicate with other ITS 
processes by means of sending and receiving messages. A process identifies itself as sender or 
recipient of a message with an ordered pair of "sixbit" STRINGS, which are often but not always 
<UNAME> and < JNAMf >. A message has a "body" and a "type". 

23.4.1. -END and SEND-WAIT 

<SEND other n I other n2 body type my name l my name 2 > 
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<SEND-WAII othernl other n2 body type my name 1 mynsme2> 

both send an l PC message In any process llial is listening for it as othernl other n2. body must be 
either a SIRING, or a UVICIOR of objects of PRIMIYPf WORD, type is an optional FIX, 0 by default, 
which is part of the information the other guy receives. The last two arguments are from whom the 
message is to lie sent. These are optional, and <l)NAME> and <JNAME> respectively are used by 
default. SI NO returns a I AISE if no one is listening, while SEND-WAIT hangs until someone wants it. 
Both return I if someone accepts the message. 


23.4 2 The "IPC" Interrupt 

When yout MIX process receives an IPC message. "IPC" occurs (chapter 21). A handler is called 
svith either four m si\ arguments gleaned from the received message, body, type, othernl, and 
other n2 are always supplied. myn<tmel and my name 2 are supplied only if they are not this process's 
<UNAME > and < JNAMI >. 

There is a built-in HANOI [ R for the "IPC" interrupt, with a handler named IPC-HANDLER and 0 in the 
PROCESS slot. The handler prints nut on the terminal the body, whom it is from, the type if not 0, 
and svhnm it is to if not < UN AMI > <JNAME>. If the type is 1 and the body is a STRING, then, after 
the message information is printed out. the SIRING is PARSEd and EVALuated. 


23.4.3. 1 PC-01 1 

<IPC-Off > stops all listening on tiie IPC device. 


23.4.4. 1 PC -ON 

< I PC -ON mynomel mynah)c2'> 

causes listening on the IPC device as mynmel mynnme2. If no arguments are provided, listening is 
on <UNAME> <dNAHE>. When a message arrives, "IPC" occurs. 

MDL is initially listening as <UNAME> <JNAME> with the built-in HANDLER set up on the "IPC" 
interrupt with a priority of 1. 


23.4.5. DEMSIG 

< OEMS I G djcmonistnns > 

signals to ITS (directly, not via Hie IPC device) that the daemon named by its argument should run 
now. It returns T if the daemon exists, IFALSE () otherwise. 
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Chapter 24. Efficiency and Tastefulness 


24.1. F.ffi cirncy 

Actually, you make MDI. programs efficient by thinking hard about what they really make the 
interpreter do. ami making them do less. Some guidelines, in order of decreasing expense: 

(I) Free storage is expensive. 

(21 Calling functions is expensive. 

(3) PROG and REPEAT are expensive, except when compiled. 

Explanation: 

(1) Unnecessary use of free storage (creating needless LISTs, VECTORS. UVECTORs. etc.) will cause the 
garbage collector to run more often. This is expensive! A fairly large MDL (for example, 60 000 36- 
bit words! can lake ten seconds of PDP-10 CPU time for a garbage collection. Be especially wary of 
constructions like (0). Every time that is evaluated, it creates a new one-element LIST; it is too 
easy to write such things when they aren't really necessary. Unless you are doing PUTs or PUTRESTs 
on it. use ' ( 0 ) instead. 

(2) Sad. but true. Also generally ignored. If you call a function only once, or if it is short (less than 
one line), you are much better off in speed if you substitute its body in by hand. On the other 
band, you may be much worse off in modularity. There are techniques for combining several 
FUNCTIONS into one RSUBR (with RSUBR-ENTRYs), either during or after compilation, and for 
changing FUNCTIONS into MACROS. 

(3) PROG is almost never necessary, given (a) "AUX" in FUNCTIONS! (b) the fact that FUNCTIONS can 
contain any number of TORMs: (c) the fact that C0ND clauses can contain any number of FORMs: and 
(d) the fact that new variables can be generated and initialized by REPEAT. However. PROG may be 
useful when an error occurs, to establish bindings needed for cleaning things up or interacting with 
a human. 

The use of PROG may be sensible when the normal flow of control can be cut short by unusual 
conditions, so that the program svants to RETURN before reaching the end of the PROG. Of course. 


1 

ij 
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nested CONOs can accomplish the same end, but deep nesting may tend to make the program 
unreadable. For example: 

< PROG ( TCMP) 

COR <SFT ICMP <0K-F0R-STEP-1?>> 

CRETURN . TEMP>> 

CSTEP- 1 > 

COR CSET TEMP C0K-F0R-STEP-2?>> 

CRETURN . TEMP>> 

<SlEP-2>> 

could instead be written 

CCONO (< OK -FOR -STEP-1?) 

CSTEP-l) 

CCOND (< OK -FOR -STEP-2?) 

CSTEP-2>)>)> 

By the way. RCPEAT is faster than GO in a PROG. The CGO x> FORM has to be separately interpreted, 
right? In fact, if you organize things properly you very seldom need a GO; using GO is generally 
considered "had style", but in some cases it’s needed. Very few. 

In many cases, a RCPEAT can be replaced with a NAPF or HAPR, or an HIST, IVECTOR, etc. of the 
form 


C HIST .N 'CSET X <♦ .X 1» 

which generates an N-element LIST of successive numbers staging at X+l. 

Whether a program is interpreted or compiled, the first two considerations mentioned above hold: 
garbage collection and function calling remain expensive. Garbage collection is, clearly, exactly the 
same. Function calling is relatively more expensive. However, the compiler careth not whether you 
use REPEAT, GO, PROG, IL 1ST , MAPF, or whatnot: it all gets compiled into practically the same 
thing. However, the REPEAT or PROG will be slower if it has an ACTIVATION that is SPECIAL or used 
other than by RETURN or AGAIN. 


24.1.1. Example 

There follows an example of a FUNCTION that does many things wrong. It is accompanied by 
commentary, and two better versions of the same thing. (This function actually occurred in 
practice. Needless to say, names are withheld to protect the guilty.) 

Blunt comment: this is terrible. Its purpose is to output the characters needed by a graphics 
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terminal to draw lines connecting a set of points. The points are specified by two input lists: X 
values and Y values. The output channel is the third argument. The actual characters for each line 
are returned in a I 1ST by the function TRANS. 


<DEF INE PLOTVDSK (X Y CHN "AUX" L LIST) 

<C0HD ( < NO T < = =7 <SET L <LENGTH .X»<LENGTH .Y> » 
<FRR0R "IENGTHS NOT EQUAL’))) 

<SE T LIST ( 29 ) > 

<REPEAT ((N 1)) 

<SET LIST ( ! .LIST !< TRANS <.N .X> <.N .Y»)> 
<fOND ( <G? <SF.T N <♦ .N 1» .LXRETURN .N>)> > 
<REPEAT ((N 1) (LI <LENGTM .LIST))) 

< PRINC < ASCI I < .N .LIST)) .CHN) 

<COND (<G? <SET N <♦ .N 1» .LI) 

<RETURN "DONE"))) >> 


Comments: 

(1) LIST is only temporarily necessary. It is just created and then thrown away. 

(2) Worse, the construct ( ! .LIST KTRANS . . .)) copies the previous elements of LIST every time it 
is executed! 

(3) Indexing down the elements of LIST as in <.N .LIST) takes a long time, if the LIST is long. <3 
. ..) or <4 ...) is not worth worrying about, but <10 ...) is. and <100 ...) takes quite a while. 
Even if the indexing were not phased out, the compiler would be happier with <NTH .LIST ,N>. 

(4) The variable CIIH is unnecessary if OUTCHAN is bound to the argument CHANNEL. 

(5) It is tasteful to call ERROR in the same way that F/SUBRs do. This includes using an ATOM from 
the ERRORS OBLIST (if one is appropriate) to tell what is wrong, and it includes identifying yourself. 

So, do it this way: 
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enrriNi ihoivdsk (x y outciian) 

"MCI ((OUTCIIAN) < SPECIAL CHANNEL)) 

<C0Nn ( < NO I ( = = ? < LENGTH .X> <LENGTH .Y»> 

<L RROR VECTOR-LENGTHS-DIFFER! -ERRORS PLOTVDSK))) 
< PR INC < ASC 1 1 ?9>> 

<RFPf AT () 

<C0N0 (<EMPTY? .X> (RETURN "DONE"))) 

(REPEAT ((OL (TRANS (1 .X) (1 .Y»)) 

(PRINC (ASCII (1 ,OL)>> 

(COND ((EMPTY? (SET OL (REST .OL»> 
(RETURN>)» 

(SC T X (REST .X» 

(SET Y (REST .Y>>>> 


Of course, if you know Imw long is I he LIST Dial TRANS returns, you can avoid using the inner 
REPEAT loop and have explicit PRINCs for each element. This can be done even better by using 
MAPF , as in the next version, which does exactly the same thing as the previous one, but uses MAPF 
to do the KESTiug and the end conditional: 

(OCT INC PIOTVDSK (X Y OUTCIIAN) 

"ItlCl ((OUTCIIAN) (SPECIAL CHANNEL)) 

(CONI) ( < NO I ( = = ? (LENGTH .X) (LENGTH .Y») 

(ERROR VECTOR-LENGTHS-DIFFER! -ERRORS PLOTVDSK))) 

(PRINC (ASCII ?9)> 

(MAPF (> 

<*F UNCI ION ( ( XE YE) 

(MAPF (> IFUNCTION ((T) (PRINC (ASCII .T») (TRANS .XE . YE») 

,X 
. Y> 

"DONE") 


24-2. G reat i nc a LIST in Forward Order 

If you must create the elements of a LIST in sequence from first to last, you can avoid copying 
earlier ones when adding a later one to the end. One way is to u e MAPF or MAPR with a first 
argument of , L 1ST : the elements are put on the control stack rather than in free storage, until the 
final call to LIST. If you know how many elements there will be. you can put them on the control 
stack yourself, in a TUIME built for that purpose. Another way is used when REPEAT is necessary: 
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(REPEAT ((FIRS! (I)) (LAST .FIRST) ...) 

♦DECL ((VALUE FIRST LAST) LIST ...) 

<Sf T LAST <RCST <PUTREST .LAST ( ,NEW)>» 

<RL TORN <REST .FIRST)) 

. . .) 

Herr. .IASI always points to the current last element of the LIST. Because of the order of 
evaluation, the <SET l AST . ..) could also be written <PUTREST .LAST <SET LAST (.NEW)>>. 


24.3. R ead-only Free Variables 

If a Function uses the value of a free variable (<GVAL unmanifest:atom> or <LVAL special :atom>) 
without changing it. the compiled version may he more efficient if the value is assigned to a 
dummy UMSPrciAL ATOM in the Function's "AUX" list. This is true because an UNSPECIAL ATOM gets 
compiled into a slot on the control stack, which is accessible very quickly. The trade-off is 
probably worthwhile if a is referenced more than once, or if an unmanifest is referenced more 

than twice. Example: 

COiriNl MAP-LOOMIP (THINGS "AUX" (OB .DATA-BASE)) 

•OTCI ( ( VAl LIE ) VECTOR (THINGS OB) <UNSPECIAL <PRIMTYPE LIST))) 

(MAPF .VECTOR (FUNCTION (T) (MEMO .T .DB>> .THINGS)) 


24.4. G lobal and local Values 

In the interpreter the sequence .X .X ,X .X is slower than .X ,X .X .X because of interference 
between the GVAI and l VAl mechanisms (appendix I). Thus it is not good to use both the GVAL and 
LVAL of the same ATOM frequently, unless references to the LVAL will be compiled away (made into 
control stack references). 


24.5. Makin g Offse ts for Arrays 

It is often the case that you want to attach some meaning to each element of an array and refer to 
an element independently of other elements. Firstly, it is a good idea to use names (ATOMs) rather 
than integers (TlXes or even orFSETs) for offsets into the array, to make future changes easier. 
Secondly, it is a good idea to use the GVALs of the name ATOMs to remember the actual FIXes, so that 
the ATOMs can be MANIFEST for the compiler's benefit. Thirdly, to establish the GVALs. both the 
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interpreter and (lie compiler will tie happier with <SETG name offsef> rather than <DEF1NE name 
(•TUPLE" T) <on<#t !.!>>. 


24.6. T ables 

There are 'ever a I ways in IWDl. lo store a table, (hat is, a collection of (names and! values that will 
he searched. Unsuipiisingly, choosing the best way is often dictated by the site of the table and/or 
the natuic of the (names and) values. 

For a small table, the names and values can be put in (separate) structures - the choice of LIST or 
array being detei mined by volatility and limilability -• which are searched using MLMQ or MEMBER. 
This method is very space efficient. If the table gets larger, and if the elements are completely 
orderable. a (unifonu) s ector can be used, kept sorted, and searched with a binary search. 

For a large table, where reasonably efficient searches are required, a hashing scheme is probably 
best. Two methods aie available in MDL: associations and OBLISTs. 

In the first method. I'll I PROP and GfTPROP are used, which are very fast. The number of hashing 
buckets is fixed Duplicates are eliminated by testing. If it is necessary to use *? testing, or to 
find all the entries m the table, yon can duplicate the table in a LIST or array, to be used only for 
those purposes. 

In the second method. INSIRI and 100MIP on a specially-built OBLIST are used. (If the names are 
not STRINGS, they can he converted to SIRINGs using II PARSE. which takes a little time.) The 
number of hashing buckets can be chosen for best efficiency. Duplicates are eliminated by »T 
testing. MAI’F/R can be used to find all the entries in the table. 


24.7. N esting 


The beauty of ilreph nested contiol structures in a single FUNCTION is definitely in the eye of the 
beholder. (PPR1N1, a pre-loaded RSUBR, finds them trying. However, the compiler often produce* 
better code fiom them. I If you don’t like excessive nesting, then you will agree that 

<SF T X . . . > 

<C0NP (<0? .X> ...) ...> 

looks better than 

<C0Nl> (<0? <SL T X ...» ...) ...> 


and that 
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<RCPEAT ... 

<C0ND ... 

( ... <RETURN ...>)> 

. ..> 

looks better than 

<RIPEAT ... 

<CONP ... 

(... < RETURN ...>) 

(ELSE ...)> 

. . .> 

You can see the nature of the choices. Nesting is still and all better than GO. 
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Appendix 1. A Look Inside 


This appendix tells ahoui tlir mapping between MDL objects and PDP-IO storage *• in other words, 
the way things look "on the inside" None of this information is essential to knowing how to 
program in MDl . Imt it does give some reasons for capabilities and restrictions that otherwise you 
have to incmoiuc The notation and terminology get a little awkward in this discussion, because we 
are m a twilight /one between the worlds of MDl objects and of bit patterns. In general the words 
and phrases appealing m diagrams refer to bit patterns not MDL objects. A lower-case word (like 
“tuple") rcfcis to the stoiagc occupied by an object of the corresponding PRINTYPE (like TUPLE). 

First some let minnlngs needs discussion. The sine qua non of any MDL object is a pair of 56-bit 
computer wouls In general, lists consist of pairs chained together by pointers (addresses), and 
vectors consist of mntiguous blocks of pairs. s = 7 essentially tests two pairs to see whether they 
contain the same bit patterns. 

The fiist ilowei-addiessed) wmd of a pair is called the T YPE w ord, because it contains a numeric 
TYP l code that repiesents the object's TYPE. The second (higher-addressed) word of a pair is called 
the value word, haaiise it contains (part of or the beginning of) the "data part" of the object. The 
TYPl woid (and sometimes the value word) is considered to be made of a left half and a right half. 
We will pictuie a pair like this: 


I 1 YPl 


I value | 


where a vertical bar in the middle of a word means the word's halves are used independently. You 
can see that the 1YPI code is confined to the left half of the TYPE word. (Half-)words are sometimes 
subdivided into fields appiopriate for the soutext: fields are also pictured as separated by vertical 
bars. The tight half of the 1YPF word is used for different purposes depending on the TYPE of the 
object and actual location of the value. 

Actually the IS bit I YPl field is further decoded The high-order (leftmost) bit is the mark bit. used 
exclusively hv the garbage collector when it runs. The next two bits are monitor bits, used to cause 
"REAP" and "WRllt " interrupts on lead and write references to the pair. The next bit is used to 
differentiate between list elements and vector dope svords. The next bit is unused but could be used 
in the f unite for an “execute" monitor. The remaining IS bits specify the actual TYPE code. What 
CMTYPE does is to copy the pair and put a new TYPE code in the new pair. 

Each data TYPl (piedefined and NlwlYPls) must belong to one of about 25 "storage allocation 
classes" (roughly corresponding to MDL PRIMTYPEs). These classes are characteritrd primarily by 
the manner m which the garbage collector treats them. Some of these classes will now be described. 





Appendix I 


212 


The MDL Programming Language 


"Jne Word” 

This class includes all data that are not pointers to some kind of structure. All external (program- 
available) TYPES in this class are of PRIMTYPE WORD. Example: 


FIX | 0 


105 


"Two Word" 

The members of this class are all 18-bit pointers to list elements. All external TYPEs in this class are 
of PRIMTYPE LIST. Example: 


LIST | 0 


I 0 l pointer | 


where pointer is a pointer to the first list element. If there are no elements, pointer is aero; thus 
empty objects of PRIMTYPE LIST are ==? if their TYPES are the same. 


"Two N Word" 

Members or this rlass arr all "counting pointers" to blocks of two-word pairs. The right half of a 
counting pointer is an address, and the left half is the negative of the number of 36-bit words in the 
block. (This format is tailored to the PDP-10 AOBJN instruction.) The number of pairs in the block 
(LENGTH) is half that number, since each pair is two words. All external TYPEs in this class are of 
PRIMTYPE VECTOR. Fxamplr: 


I VF C T OR | 0 


I -2* length | pointer | 


where length is the LENG1H of the VECTOR and pointer is the location of the start (the element 
selected by an NTH argument of 1) of the VECTOR. 
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"N Word” 

This class is the same as the previous one. except that the block contains objects all of the same 
TYPE without individual TYPE 'voids. I he TYPE code for all the elements is in vector dope words, 
which are at addresses just larger than the block itself. Thus, any object that carries information in 
its TYPE word cannot go in the block: PRIMTYPEs STRING, BYTES, TUPLE (and the corresponding 
locatives LOCS, I0CB, LOCA). FRAME, and LOCO. All external TYPEs in this class are of PRIMTYPE 
UVECTOR. Example: 


I UVEC10R | 0 


I -length | pointer | 


where length is the l ENGTII of the UVECTOR and pointer points to the beginning of the UVECTOR. 


"Byte String” and "Character String" 

These two classes air almost identical. Byte strings are byte pointers to strings of arbitrary-size 
bytes. PRIM1YPE HYlfS is the only member of this class. Character strings are byte pointers to 
strings of ASCII characters. PRIMTYPE STRING is the only member of this class. Both of these 
classes consist of a length and a PDP-IO byte pointer. In the case of character strings, the byte-size 
field in the byte pointer is always seven bits per byte (hence five bytes per word). Example: 


STRING | length | 


I byte-pointer | 


where length is the LENGTH of the STRING (in bytes) and byte-pointer points to a byte just before 
the beginning of the siring (an ILOB instruction is needed to get the first byte). A newly-created 
STRING always has *010700* in the left half of byte-pointer. Unless the string was created by 
SPNAME , byto-pointrr points to a uvector, where the elements (characters) of the STRING are stored, 
packed together five to a word. 


If* H 

Frame 

This class gives the user program a handle on its control and variable-reference structures. All 
external TYPI s in this class arc of PRIMTYPE FRAME. Three numbers are needed to designate a frame: 
a unique 18-hit identifying number, a pointer to the frame’s storage on a control stack, and a 
pointer to the PROCESS associated with the frame. Example: 
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fRAHE I PROCESS-pointer | 


unique- id | frame-pointer | 


where PROC TSS-pointer points to the dope words of a PROCESS vector, and unique-id is used for 

validating (testing I tGAl ’) the frame-pointer, which points to a frame for some Subroutine call 
on the control slack. 


"Tuple" 

A tuple pointer is a counting pointer to a vector on the control stack. It may be a pointer to the 
arguments to a Subroutine or a pointer generated by the "TUPLE" declaration in a FUNCTION. Like 
objects in the previous class, these objects contain a unique identifying number used for validation. 
PRIMTYPE TUPLE is the only member of this class. Example: 


I TIIPIE | uniquo-id | 


I -2* length | pointer 


Other Storage Classes 

The rest of the storage classes include strictly internal TYPEs and pointers to special kinds of lists 
and vectors like locatives. AlOMs and ASOCs. A pair for any LOCATIVE except a LOCD looks like a 
pair for the corresponding structure, except of course that the TYPE is different. A LOCO pair looks 
like a tuple pair and needs a word and a half for its value: the unique-id refers to a binding on the 
control stack or to the "global stack" if zero Thus LOCDs are in a sense "stack objects" and are more 
restricted than other locatives. 

An OFF SI T is stored with the INOIX in the right half of the value word and the Pattern in the left 
half. Since the Pattern can be either an ATOM or a FORM, the left half actually points to a pair, 
which points to the actual Pattern. The Pattern ANY is recognized as a special case: the left-half 
porntcr is /cm. and no pair is used Thus, if you’re making the production version of your program 
and want to save some storage, you can do something like <SETG F00 (PUT-DECL ,FOO ANY>> for 
all OFFSETS. 
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Lists 

List elements are pairs linked together by the right halves of their first words. The list is 
terminated hy a 7ero in the right half of the last pair. For example the LIST (12 3) would look 
like this: 


| LISI | 0 | 


I 0 | >| FIX | >| FIX | >| FIX | 0 | 

I I I - - - - I I - - - - I 

111 |2| | 3 | 


The use of pointers to tie togrther elements explains why new elements can be added easily to a list, 
how sharing and circularity work. etc. The links go in only one direction through the list, which is 
why a list cannot be BACKed or TOPped: there's no way to find the RESTed elements. 

Since some MDI. values re/piire a word and a half for the value in the pair, they do not fit directly 
into list elements. This problem is solved by having "deferred pointers". Instead of putting the 
datum directly into the list element, a pointer to another pair is used as the value with the special 
internal TYPE DCFLR, and the real datum is put in the deferred pair. For example the LIST (1 
"hello" 3) would look like this: 


| LIST | 0 | 


I 0 | >| FIX | > | DEFER | >| FIX | 0 | 


1111 I 3 | 

I 


I STRING | 5|<- 

| .... | 

Ibytc-pntrl 
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Vectors 


A vector is a block of contiguous words. More than one pair can point to the block, possibly at 
different places in the block: this is how sharing occurs among vectors. Pointers that are different 
arise from REST or GROW/BACK operations. The block is followed by two "dope words”, at addresses 
just larger than the largest address in the block. Dope words have the following format: 


/ / 

I I 

I I 


type | 

grow 

length | 

gc 


The various fields have the following meanings: 

typo - The fourth bit from the left (the "vector bit", 40000 octal) is always one, to distinguish these 
vector dope words from a TYPE/value pair. 

If the high-order bit is zero, then the vector is a UVECTOR, and the remaining bits specify the 
uniform TYPE of the elements. CHUTYPE just puts a new TYPE code in this field. Each element 
is limited to a one-word value: clearly PRIMTYPE STRINGS and BYTESes and stack objects can’t 
go in uniform vectors. 

If the high-ord^r hit is one and the TYPE bits are zero, then this is a regular VECTOR. 

If the high-order bit is one and the TYPE bits are not all zero, then this is either an ATOM, a 
PROCESS , an ASOC, or a TEMPLATE. The special internal format of these objects will be 
described a little later in this appendix. 

length - The high order bit is the mark bit, used by the garbage collector. The rest of this field 
specifies the number of words- in the block, including the dope words. This differs from the 
length given in pairs pointing to thi' vector, since such pairs may be the result of REST 
operations. 

grow - This is actually two nine-bit fields, ;pecifying cither growth or shrinkage at both the high 
and low ends of the vector. The fields are usually set only when a stack must be grown or 
shrunk. 

gc -- This is used by the garbage collector to specify where this vector is moving during 
compaction. 

Examples (numbers in octal): the VECTOR [1 "bye" 3] looks like: 
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I VI C I OR l 0 | 

I I 

I -6 | --- 


>1 FIX | 


1 


SIRING | 3 


l>y to pointer 


FIX | 


3 


<140000 | 0 


10 | 


The UVIC10R •( -1 / -4! ] looks like: 


I UVICIOR | 0 | 


I -3 I >| -1 


-4 j 


I 40000*1 IX | 0 | 


S I I 


Atoms 

Internally, .itoms .nr special vector-like objects An atom contains a value cell (the first two words 
of the block, filled in whenever the global or local value of the A10M Is referenced and Is not already 
there), an OBLIS1 pointer, and a print name (PNAHt), in the following format: 
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I type | bindid | 

I poinier-to-value | 

I pointer-to-OBLIST I 

I print-name | 

/ / 

/ / 

I (ASCII with NUl padding on end)| 

I AIOM | valid- type | 

I - - I 

I length | gc | 


If the type field corresponds to TYPE UNBOUND, then the ATOM is locally and globally unbound. 
(This is different from a pair, where the same TYPE UNBOUND is used to mean unassigned.) If it 
corresponds to TYPE l OH (an internal TYPE), then the value cell points either to the global stack, if 
bindid is /eio. 01 to a local control stack, if bindid is non-zero. The bindid field is used to verify 
whether the local value pointed to by the value cell is valid in the current environment. The 
pointor-to-Olll IS1 is eiiher a counting pointer to an oblist (uvector), a positive offset into the 
"transfer vector” (for pure ATOMs). or zero, meaning that this ATOM is not on an OBLIST. The valid- 
type field tells whether or not the AIOM represents a TYPE and if so tie code for that TYPE; grow 
values are never needed for atoms. 


Associations 

Associations are also special vector-like objects. The first six words of the block contain TYPE/value 
pairs for the ITEM, INPICA10R and AVALUE of the ASOC. The next word contains forward and 
backward pointers in the chain for that bucket of the association hash table. The last word 
contains forward and backward pointers in the chain of all the associations. 
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ITFM 


pair 


INDICATOR 


pair 


AVALUE 


pair 


bucket-chain pointers 


association-chain pointers 


ASOC | 0 


12 octal | gc 


PROCESSes 

A PROCESS vector looks exactly like a vector of TYPE/value pairs. It is different only in that the 
garbage collector treats it differently from a normal vector, and it contains extremely volatile 
information when the PROCESS is RUNNING. 


Templates 

In a template, the number in the type field (left half of first dope word) identifies to which "storage 
allocation class" this TEMPLATE belongs, and it is used to find PDP-IO instructions in internal tables 
(frozen nvectors) for performing LENGTH, NTH, and PUT operations on any object of this TYPE. 
The programs to build these tables are not part of the interpreter, but the interpreter does know how 
to use them properly. The compiler can put these instructions directly in compiled programs if a 
TEMPLATE is never RESTed: otherwise it must let the interpreter discover the appropriate instruction. 
The value word of a template pair contains, rot a counting pointer, but the number of elements 
that have been RES led off in the left half and a pointer to the first dope word in the right half. 
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The Control Stack 

Accumulators with symbolic names Ad, 18. and IP arc all pointers into the RUNNING PROCESS'* 
control Mack. AR ("argument base") is a pointer to the arguments to the Subroutine now being run. 
It is set up by the Subroutine-call mediator, and its old value is always restored after a mediated 
Subroutine call returns. TB ("temporaries base") points to the frame for the running Subroutine and 
also serves as a stack base pointer. The TB poiutrr is rea”y all that is necessary to return from a 
Subroutine - given a value to return, for example by IRRfT - since the frame specifies the entire 
stale of the calling routine. IP ("temporaries pointer") is the actual stack pointer and always points 
to the current top of the control stack. 

While were on the subject of accumulators, we might as well be complete. Each accumulator 
contains the value svotd of a pair, the coiresponding TYPE words residing in the RUNNING PROCESS 
vector When a I’ROCrSS is not RUNNING tor when the garbage collector is running), the accumulator 
contents are sioird in the vector, so that the objects they point to look like elements of the PROCESS 
and thus are not gaihagr-collectible. 

Accumulators A, R, C. P, C and 0 are used almost entirely as scratch accumulators, and they are 
not saved or restored across Subroutine calls. Of course the interrupt machinery always saves these 
and all other accumulators. A and B are used to return a pair as the value of a Subroutine call. 
Other than that special feature, they are just like the other scratch accumulators. 

M and R are used in running RSlIRRs. M is always set up to point to the start of the RSUBR’s code, 
svhich is actually just a unifonn vector of instructions. All jumps and other references to the code 
use M as an index register. This makes the code location-insensitive, which is necessary because the 
code uvector will move around. R is set up to point to the vector of objects needed by the RSUBR. 
This accumulator is necessary because objects in garbage-collected space can move around, but the 
pointers to them in the reference vector are always at the same place relative to its beginning. 

FRM is the internal frame pointer, used in compiled code to keep track of pending Subroutine calls 
when (he control stack is heavily used P is the internal-stack pointer, used primarily for internal 
calls in the interpreter. 

One of the nicest features of the MDL environment is the uniformity of the calling and returning 
sequence. /VII Subroutines - both built-in F/SllRRs and compiled RSUBR( -ENTRY)s -- are called in 
exactly the same way and return the same way. Arguments are always passed on the control stack 
and results always cud up in the same accumulators. For efficiency reasons, a lot of internal calls 
within the interpreter circumvent the calling sequence. However, all calls made by the interpreter 
when running user programs go through the standard calling sequence. 

A Subroutine call is initiated by one of three lIUOs (PDP-IO instructions executed by software 
rather than hardware). MCAl L ("MDL call") is used when the number of arguments is known at 
assemble or compile time, and this number is less than 16. QCALL ("quick call”) may be used if, in 
addition, an RSUBR( -ENTRY) is bring called that can be called "quickly" by virtue of it* having 
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special information in its reference vector. ACALL ("accumulator call") is used otherwise. The 
general method of calling a Subroutine is to PUSH (a PDP-IO instruction) pairs representing the 
arguments onto the control stack via TP and then either (I) NCALL or QCALL or (2) put the number of 
arguments into an accumulator and ACALL. Upon return the object returned by the Subroutine will 
be in accumulators A and It, and the arguments will have been POPped off the control stack. 

The call mediator stores the contents of P and TP and the address of the calling instruction in the 
current frame (pointed to by IB). It also stores MDL's "binding pointer" to the topmost binding in 
the control stack. (The bindings are linked together through the control stack so that searching 
through them is more efficient than looking at every object on the stack.) This frame now specifies 
the entire stale of the caller when the call occurred. The mediator then builds a new frame on the 
control stack and stores a pointer back to the caller's frame (the current contents of TB). a pointer to 
the Subroutine being called, and t hr new contents of AB, which is a counting pointer to the 
arguments and is computed from the information in the MCALL or QCALL instruction or the ACALL 
accumulator. TB is then set up to point to the new frame, and its left half is incremented by one, 
making a new unique- id. The mediator then transfers control to the Subroutine. 

A control stack frame has seven words as shown: 


I ENIRY | cal led-addr | 


I unique- id | prov frame | 


| argument pointer I 


| saved binding pointor I 


I saved P 


I saved TP | 


| saved calling address I 


The first three words are set up during the call to the Subroutine. The rest are filled in when this 
routine calls another Subroutine. The left half of TB is incremented every time a Subroutine call 
occurs and is used as the unique- Id for the frame, stored in frame and tuple pairs as mentioned 
before. Obviously this id is not strictly unique, since each 256K calls it wraps around to lero. The 
right half of IB is always left pointing one word past the saved-calling-address word in the frame. 
TP is also left pointing at that word, since that is the top of the control stack at Subroutine entry. 
The arguments to the called Subroutine are below the frame on the control stack (at lower storage 
addresses), and the temporaries for the called Subroutine are above the frame (at higher storage 
addresses). These arguments and temporaries are just pairs stored on the control stack while needed; 
they are all that remain of UNSPECIAL values in compiled programs. 
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The following figure shows wliat the control stack might look like after several Subroutine calls. 

/ / 


orris for SI 1 

I 

frame for 51 | 

< 

I 

temps for SI | 


arys for 52 | 

I 

f rome for 52 | - 

< 

I 

temps for 52 | 

I 

orys f or S3 | 
frame for S3 | - 
I 

temps for S3 | 


(top) 

The above figure shows the frames all linked together through the control stack (the "execution 
path"), so that it is easy to return to thr caller of a given Subroutine (ERRET or RETRY). 

Subroutine esil is accomplished simply by (he call mediator, which loads the right half of TB from 
the previous frame pointer, restores the "binding pointer", P, and TP, and transfers control back to 
the instruction following the saved calling address. 
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Variab le Bindings 

All local AIOM valuer are kept on the control stack or the PROCESS to which they are local. As 
described before, the atom contains a word that points to the value on the control stack. The 
pointer is actnallv to a six-word "binding block" on the control stack. Binding blocks have the 
follosviug format: 


I II I NO or UBIND | prev 


I pointer to ATOM 


value 


pa tr 


I 

I 

I 


I 

I 


I dec) | unique- id I 


I previous-binding | 


where: 

BINP means this is a binding for a SPECIAL ATOM (the only kind used by compiled programs), 
and HU I NO means this is a binding for an UNSPECIAL ATOM - for SPECIAL checking by the 
interpreter: 

prev points to the closest previous binding block for any ATOM (the "access path" -- UNWIND 
objects are also linked in this chain): 

dec 1 points to a OF CL associated with this binding, for SET(10C ) to check; 
unique-id is used for validation of this block: and 

previous-binding points to the closest previous binding for this ATOM (used in unbinding). 

Bindings are generated by an internal subroutine called SPECBINO (name comes from SPECIAL). The 
caller to SPFCIUNO PUSIIes consecutive six-word blocks onto the control stack via TP before calling 
SPECBINO. The first word of each block contains the TYPE code for ATOM in its left half and all 
ones in its right half. SPFCBINP uses this hit pattern to identify the binding blocks. SPECBIND's 
caller also fills in the next liner words and leaves the last two words empty. SPECBIND fills in the 
rest and leaves the "binding pointer" pointing at (hr topmost binding on the control stack. 
SPECBINO also stores a pointer to the current binding in the value cell of the atom. 
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Unhin .ling is accomplished during Subroutine return. When the previous frame is being restored, 
the call mediator checks to see if the saved "binding pointer" and the current one are different: if 
they are. SI'ECSIORE is called. SPECS10RE runs through the binding blocks, restoring old value 
pointers in atoms until the "binding pointer" is equal to the one saved in the frame. 


Obviously variable binding is more complicated than this, because ATOMs can have both local and 
global values and even different local values in different PROCESSes. The solution to all of these 
additional problems lies i„ the bindid field of the atom. Each PROCESS vector also contains a 
current bindid. Whenever an AlOM's local value is desired, the RUNNING PROCESS’S bindid is 
checked against that of the atom: if they are the same, the atom points to the current value: if not. 
the cm rent I'ROCTSSs control stack must be searched to find a binding block for this ATOM. This 
binding scheme might he called "shallow binding*. The searching is facilitated by having all 
binding blocks linked together. Referring to global variables is accomplished in a similar way. 
using a VECTOR that is lefened to as the "global slack". The global stack has only an ATOM and a 
value slot foi each variable, since global values never get rebound. 


EVAl with respect to a different environment causes some additional problems. Whenever this kind 
of EVAl is done, a Inand new bindid is generated, forcing all current local value cells of atoms to 
appear invalid, local values must now be obtained by searching the control stack, which is 
inefficient cmnpaicd to just pulling them out of the atoms. (The greatest inefficiency occurs when 
an ATOMS IVAl is never used twice in a row in the same environment.) A special block is built on 
the oontiol stack and linked into the binding-block chain. This block is called a "skip block’ or 
environment sphcc . and it diverts the "access path" to the new environment, causing searches to 
become relative to this new environment. 
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Appendix 2. Predefined Subroutines 

The following is a very brief description of all the primitives (F/SUBRs) currently available in 
MDL. These descriptions are in no way to be considered a definition of the effects or values 
produced by the primitives. They just try to be as complete and as accurate as is possible in a 
single-statement description. However, because of the complexity of most primitives, many 
important assumptions and restrictions have been omitted. Even though all primitives return a 
value, some descriptions mention only the side effects produced by a primitive, because these 
primitives are most often used for this effect rather than the value. 

A description is given in this format: 

name ( arguments ) 
dec I 

English description 

This format is intended to look like a FUNCTION definition, omitting the call to DEFINE and all 
internal variables and code. The name is just the ATOM that is used to refer to the primitive. The 
names of the arguments are intended to be mnemonic or suggestive of their meanings. The dec / is a 
FUNCTION-style Of Cl (chapter I I) for the primitive. In some cases the DECL may look unusual, 
because it is intended to convey information to a person about the uses of arguments, not to convey 
information to the MDL interpreter or compiler. For example, <0R FALSE ANY> is functionally 
equivalent to AMY , but it indicates that only the "truth" of the argument is significant. Indeed, the 
[OPT ...1 construction is often used illegally, with other elements following it: be warned that 
MDL would not accept it. An argument is included in the same LIST with VALUE (the value of the 
primitive) only if the argument is actually returned by the primitive as a value. In other words, 
#DECL ((VALUE ARG) . ..) implies < = = ? .VALUE .ARG>. 


" ("TUPLE" FACTORS) 

#DECL ((VAIUf ) <0R f IX FLOAT) 

(FACTORS’! < TUPLE [REST <0R FIX FLOAT)])) 
multiplies all arguments together (arithmetic) 

♦ ("TUPLE" TERMS) 

#DECL ((VALUE) COR FIX FLOAT) 

(TERMS) < TUPLE [REST COR FIX FLOAT)])) 
adds all arguments together (arithmetic) 
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- ("OPIIONAI" HUM NR "TUPLE" SUBTRAHENDS) 

#DECL ((VALUE) <OR FIX FLOAT) 

(MINUEND) <0R r IX FLOAT) 

(SUBTRAHENDS) <TUPLC (REST <0R FIX FLOAT)])) 
subtracts oilier arguments from first argument (arithmetic) 

/ ("OPTIONAL" DIVIDEND "TUPLE" DIVISORS) 

#DECL ((VAtUT) <OR FIX FLOAT) 

(DIVIDEND) COR FIX FLOAT) 

(DIVISORS) CTUPLE [REST COR FIX FLOAT)])) 
divides first argument by other arguments (arithmetic) 

0 ? ( NUMB! R ) 

#DECL ((VALUD COR 'T '/FALSE ()) 

(NUMBER) COR FIX FLOAT)) 
tells whether a number is rero (predicate) 

1? (NUMBER) 

#DECL ((VALUE) COR 'T '/FALSE ()> 

(NUMRIR) COR FIX FLOAT)) 
tells whether a number is one (predicate) 

1STEP (PROCESS) 

#DECL ((VALUE PROCESS) PROCESS) 
causes a PROCESS to enter single-step mode 

* = ? (OBJECT-1 OBJECT-? ) 

#DECL ( ( VALUE ) COR ’T ’/FALSE ()> 

(OBUECT-1 OBJECT-Z) ANY) 
tells whether two objects are "exactly" equal (predicate) 

= ? (OBJECT- 1 OBJECT-?) 

#DECL ((VALUE) COR *T ' /FALSE ()> 

(OBJECT-] OBJECT-Z) ANY) 

tells whether two objects are "structurally* equal (predicate) 
ASS (NUMBER) 

#DECL ((VALUE) COR TIX FLOAT) 

(NUMBER) COR FIX FIOAT)) 
returns absolute value of a number (arithmetic) 


ACCESS (CHANNEL ACCESS-POINTER) 

#DECt. ((VAl.UF CHANNFI. ) CHANNEL 
(ACCESS-POINTER) FIX) 

set* access pointer for next I/O transfer via a CHANNEL 
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ACTIVATE -CHARS ( "0P1 IONAL" SIRING) 

'DECL ((VAItll SIRING) STRING) 

sets nr reinin' inlet i ii|>t characters for terminal typing (Tenex and Tops-20 versions only) 

AGAIN ("OPTIONAL- (ACTIVATION .LPR0G\ ! -INTERRUPTS) ) 

#0rCL ( ( VAl III ) ANY 

(AfTlVAllON) ACTIVATION) 
resumes execution al the given ACTIVATION 

ALLTYPES ( ) 

Cl. ((VAl Ut) <VE'CTOR (REST ATOM])) 
returns the VECIOK of all type names 

AND (-ARGS- ARGS) 

*DECL ((VAl III ) <0R LAPSE ANY) 

(ARGS) LIST) 

computes logical "ami" of truth-values, evaluated by the Subroutine 

AND? ("HUM l" TUPLE ) 

#DECL ((VALUE) <0R FALSE ANY) 

(1UPLL) TUPLE) 

computes logical "ami" of truth-values, evaluated at call time 

ANDB ("TUPLE" WORDS) 

#0ECL ((VAl III ) WORD 

(VOIU)S) CTIIPIE [REST <PRIMTYPE WORD)])) 
computes bitwise "and" of machine words 

APPL ICABt I. ? (OB.irCT) 

#DECL ((VAl III) <OR 'T '*IALSF ()> 

(OBJECT) ANY) 

tells whether argument is applicable (predicate) 

APPLY (APPLICABLE "TUPIE" ARGUMENTS) 

#DECL ((VALUE) ANY 

(APPLICABLE) APPLICABLE (ARGUMENTS) TUPLE) 
applies first argument to the other arguments 

APPLYTYPE (TYPE "OPTIONAL" MOW) 

#DECl ((VALUE) <0R ATOM APPLICABLE '#EALSE ()> 

(TYPE) ATOM (MOW) <0R ATOM APPLICABLE)) 
specifies or returns how a data type is applied 
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ARGS (CAII ) 

#DECL ( ( VAl Ut ) TUPLE 

(CALL) <0R FRAME ENVIRONMENT ACTIVATION PROCESS)) 
returns arguments of a given mi-returned Subroutine call 

ASCII (COUI -OR-CIIARACTER) 

#DECL ((VALUE) <0R CHARACTER FIX) 

(COUE-OR CHARACTER) <0R TIX CHARACTER)) 
returns CHARAf.lt R with given ASCII rode or vice versa 


ASSIGNED 7 (ATOM "OPTIONAL* ENV) 

«0ECL ((VAl (If) <OR ' T 1 *T ALSE ( )) 

(ATOM) AIOM (TNV) <0R FRAME ENVIRONMENT ACTIVATION PROCESS)) 
tells whether an AIOM has a local value (predicate) 


ASSOC IAI IONS () 

*DECt ( (VAl III ) <OR ASOC *#FAISE ()>) 
returns the first object in the association chain 

AT (STRUCIURfD "OPIIOfJAL* (N l)) 

AOECL ((VAl til ) IOCA1JVE 

(STRUCTURED) STRUCTURED (N) <0R FIX OFFSET)) 
returns a locative to t lie Nth element of a structure 


ATAN (NUMBER) 

*0ECL ((VALUE) R.OAT 

(NUMBER) <0R FIX FLOAT)) 
returns arc tangent of a number (arithmetic) 


ATOM ( PNAME ) 

#DECL ( ( VALUT ) AIOM 

( I’NAMI ) SIRING) 

creates an ATOM with a given name 


AVALUr ( ASSOC] AT ION) 

#DECL ( (VAl III ) ANY 

(ASSOCIATION) ASOC) 
returns the "value” field of an association 
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BACK (SIIUICTURE "ON 10NAL " N) 

#0fCl ( ( VAl Ul ) <0R VICTOR TUPLE UVECTOR STORAGE STRING BYTES TEMPLATE) 

(*') fix 

(STRUT TURi ) <OR <PR1M1 YPE VECTOR) <PRIMTYPE TUPLE) 

v PRIMTYPE UVECTOR) <PRIMTYPE STORAGE) 

CPRIMTYPE STRING) <PRIMTYPE BYTES) 

< PRIMTYPE TEMPLATE))) 

replaces some elemenis removed from a non-list structure by RESTing and chaw?* to primitive data 
type 

BIND ("ARCS* ARGS) 

#0ECL ( (VAl III ) ANY 

(ARGS) <IISI [OPT ATOM] LIST [OPT DECL ] ANY)) 
executes sequential expressions without providing a bound ACTIVATION 

BITS (WIDTH "OPTIONAL" (RIGHT-EDGE 0)) 

#DECL ((VALUE) BUS 

(WIDTH R JGIIF-EOGC ) FIX) 
creates a hit mask for I’ll T II 1 1 S and GETBITS 

BLOAT ("ONIOfJAl" 

( I Rf f 0) (SIAfk 0) (IOCALS 0) (GLOBALS 0) (TYPES 0) (STORAGE 0) (P-STACK 0) 

MIN GROW- 1 Of Al GROW-Gl ORAL GROW-TYPF GROW-STORAGE PURE P-STACK-SIZE STACK-SIZE) 
#DECL ((VALHL) F IX 

(FREE STACK IOCALS GLOBALS TYPES STORAGE P-STACK MIN GROW-LOCAL GROW-GLOBAL 
GROW-TYPF GROW-STORAGE PURE P-STACK-SIZE STACK-SIZE) FIX) 
allocates extra storage temporarily 

BLOAT-STAT ("OPTIONAL" STATS) 

#DFCl ((VAl III ) < UVECTOR [27 NX]) 

(SI ATS) CUVLCTOR [27 ANY])) 
gives garbage-collector and storage statistics 

BIOCK (lOOk-UP) 

#DECL((VALUI tOOk-UP) COR OBL1ST CL1S1 [REST COR OBLIST ’DEFAULT)]))) 

SETs OBLIST for looking up ATOMs during RLADing and PARSEing 

BOUND? (AIOM "OIMIONAI" LNV) 

#DECL ((VALUE) COR 'T '#FALSE ( )) 

(ATOM) ATOM (ENV) COR FRAME ENVIRONMENT ACTIVATION PROCESS)) 
tells whether an ATOM is locally hound (predicate) 
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BREAK-SEQ (OBJECT PROCCSS) 

#DECL ((VAIUE PROCESS) PROCESS 
(OBJECT) ANY) 

modifies execution sequence of another PROCESS 

BUFOUT ( "OPT 10NAE" (CHANNEL .OUTCHAN)) 

#DECL ((VALUE CHANNEL) CHANNEL) 
writes out all internal MDL buffers for an output CHANNEL 

BYTE-SIZE (BYTES) 

#DECL ((VALUE) FIX 

(BYTCS) BYTES) 

returns sire of bytes in a byte-string 


BYTES (SIZE "TUPLE" ELEMENTS) 

#DECL ((VALUE) BYTES 

( STZE ) FIX (FIEMENTS) <TUPLE [REST FIX]>) 
creates a byte-string front explicit arguments 


CHANLIST ( ) 

#DECL ((VALUE) <LIST [REST CHANNEL])) 
returns a LIST of currently open I/O CHANNELS 

CHANNCL ("OPTIONAL" (MODE "READ") "TUPLE" FILE-NAME) 
#DECL ((VAIUE) CHANNEL 

(MODE) SIRING (FILE-NAME) TUPLE) 
creates an unopened I/O CHANNEL 

CHTYPE (OBJECT TYPE) 

#DECL ((VALUE) ANY 

(OBJECT) ANY (TYPE) ATOM) 
makes a new pair with a given data type front an old one 


CHUTYPE (UVECTOR TYPE) 

#DECL ((VALUE UVECTOR) <PRIMTYPE UVECTOR) 

(TYPE) ATOM) 

changes the data type of the elements of a uniform vector 
CLOSE (CHANNCL) 

#DECl. ((VAIUF CIIANNFL) CHANNEL) 
closes an I/O CHANNEL 
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CLOSURE (FUNCTION "TUPLE" VARIABLES) 

#DECL ((VALUE) CLOSURE 

(FUNCTION) FUNCTION (VARIABLES) <TUPLE [REST ATOM]>) 

"binds" t he free variables of a TUNC! ION to current values 

COND ("ARCS" CLAUSES) 

#DECL ( ( VAI 111 ) ANY 

(CLAUStS) <l!Sl Cl 1ST <0R FALSE ANY» [REST <LIST <OR FALSE ANY»]>) 
evaluates conditions and selected expression 

CONS (NFW-I l EMLNl LIST) 

#DECL ((VALUE) l 1S1 

(NEW-I LLMFNT ) ANY (LIST) LIST) 
adds an clement to the front of a LIST 

COS (NUMBER) 

#0ECL ((VALUE) FLOAT 

(NUMBER) COR r IX FL0AT>) 
returns cosine of a number (arithmetic) 


CRLF ("OrtlONAL" (CHANNEL .OUICHAN)) 

#DECl ((VAIlir) '1 

(CHANNE l ) CIIANNE I ) 

prints a carriage-return and line-feed via an output CHANNEL 

OCCL -CHECK ("OPTIONAL" SWITCH) 

#DECL ( ( VAI III ) COR 'I '4FALSE ()> 

(SWITCH) COR FALSE ANY> ) 
enables or disables type-declaration checking 


OECL? ( Oil JET. 1 PA I II RN) 

#0ECL ((VALUE) COR 'T ' #FALSE ( )> 

(OBJECT) ANY (PATTERN) COR ATOM FORh>) 
tells whether an object matches a type declaration (predicate) 

DEFINE ('NAME "ARCS" ARGS) 

#DECL ( (VAI LIE ) AIOM 

(NAME ) ANY (ARES) CL 'ST [OPT ATOM] LIST [OPT DECL] ANY>) 
sets the global value of an AIOM :»• a FUNCTION 

OCFMAC ('NAMI "ARGS" ARGS) 

#DECl ((VAI III ) AIOM 

(NAME) ANY (ARGS) CLIST [OPT ATOM] LIST [OPT DECL] ANY>) 
sets the global value of an ATOM to a MACRO 
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OF MS If. ( NAM I ) 

*DECI ( ( VAI III ) <0K 'T ' ifFAlSE ()> 

(NAME) SIRING) 
signals an IT'S daemon 

OISABIE (INK KKIII'l ) 

#D(CL ( ( VAI III IN if RRIIPT ) 1HEADER) 
disables an interrupt 

DISMISS (VAI "OPIIONAL" ACTIVA1ION 1NT -LEVEL ) 
#DECl ((VAIUE VAL) ANY 

( AC I IVA1 ION) ACTIVATION (INT-IEVEL) FIX) 
dismisses an interrupt occurrence 


ECHOPA1R ( IN Olll ) 

#DECL ( ( VAI Ul IN) CHANNEL 
(Olll ) CNANNT I ) 

coordinates I/O CIIANNI Is for echoing characters oil rubout 
EMPTY? (OBJCCT ) 

#DECl ( (VAI HI ) <OR ' T '#IAISt ()> 

(OBJECT ) SIRUClURtD) 

tells whether a struct tire lias zero elements (predicate) 

ENABLE ( INHRRIIPI ) 

#DECL ( ( VAI Ul INIFRRUPT ) IHLADER) 
enables an intcriupt 

ENDBLOCK ( ) 

#DECL ( (VALUE ) COR ORE 1ST CLIST l REST COR OBLIST '0EFAULT>]») 
restores the .OBI 1ST that existed before corresponding call to BLOCK 

ENTRY-l OC (I N1RY) 

#DECL ((VALUE) FIX 

(ENTRY) RSUBR-LNTRY) 

returns the offset in the code vector of an RSUBR-ENTRY 

EOVB ("TUPLE" WORDS) 

#DCCl ((VALUD WORD 

(WORDS) CILIPif l REST CPRIMTYPE WORD>)>) 
computes bitwise "equivalence" of machine words 
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ERRE1 ( "OR 1 10NAI " VAL ( E RAME ,LLRR\ ! -INTLRRUPTS) ) 

#DFCL ((VAIUI) ANY 

(VAl ) ANY ( r RAME ) I RAME) 

continues evaluation front the last ERROR or LISTEN or front a given FRAME 

ERROR ("lliriE" INIO) 

ADLCI ( (VAl (II ) ANY 

( INI 0) lUI’l E ) 

stops and informs user of an error 
ERRORS ( ) 

#DECI ( (VAl III ) 0111 IS! ) 
returns the OIM 1ST where error messages are located 

EVAL (ANY "OPUONAL" TNV) 

#DECL ((VAIUI ) ANY 

(ENV) <0R FRAME ENVIRONMENT ACTIVATION PROCESS)) 
evaluates an expression in a given environment 

EVAL TYPE ( I YI’E "OPIIOHAI" MOW) 

#DECL ((VAIUI ) <0R AIOM APPLICABLE ’#FALSE ()> 

( IYPI ) AIOM (MOW) <0R AIOM APPLICABLE)) 
specifies or returns how a data type is evaluated 

EVENT ( NAMF "OPIIONAL" PRIORITY WHICH) 

#DECl ((VAIUI) Till AUER 

(NAME ) COR SIRING ATOM IIIEADCR) (PRIORITY) FIX (WHICH) COR CHANNEL LOCATIVE)) 
sets up an interrupt 

EXP (NUMBER) 

#Df CL ((VAIUI ) f I OAT 

(NUMBER) COR FIX FI OAT )) 
returns "e" to the power of a number (arithmetic) 

EXPAND (ANY) 

#DECL ((VALUE) ANY 
(ANY) ANY) 

evaluates its argument (only once if a MACRO is involved) in the top-level environment 

FILE-EX1STS? ("TUPLE" FILE-NAME) 

#DECL ((VALUE) COR 'T CFALSE STRING FIX)) 

(I II I -NAME) 1UPIL) 
tests for existence of a file (predicate) 
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FILE-LENGTH ( INCH) 

#DECL ( ( VAI III ) I IX 

(INCH) CHANNEL) 

returns the system-provided length of a file open on an input CHANNEL 

FILECOPY ( "OPT 10NAI " (INCH .INCHAN) (OUCH .OUTCIIAN)) 

#DECL ((VALUE) FIX 

(INCH OUCH) CHANNEL) 

copies characters from one CHANNEL to another until end-of-file on the input CHANNEL 

FIX (NUMBER) 

#DECL ((VALUE) FIX 

(NUMBER) <0R TLOAT TIX>) 
returns integer part of a number (arithmetic) 

FLATSI7E (ANY MAX "OPTIONAL" (RADIX 10)) 

#DECL ((VAI HE) <OR r IX 1 itTALSE ( )> 

(ANY) ANY (MAX RADIX) FIX) 

returns numher of characters needed to PRIN1 an object, if not greater than given maximum 

FLOAD ( " TIIPI E" LIir-ITAltl - AND - LOOK - UP ) 

#DECL ( ( VAI HE ) 1 “DONE" 

(FILE -NAME - AND- LOOK-UP) TUPLE) 
reads and evaluates all objects in a file 

[ 

FLOAT (NIIMBIR) 

#DECL ((VAI LIE) FLOAT 

(NUMBER) COR FIX FLOAT)) 
returns floating-point value of a number (arithmetic) 

FORM ("TUPLE" ELEMENTS) 

#0ECL ( ( VAI UL ) FORM 

(FI I Ml NTS) TUPl E ) 
creates a FORM from explicit arguments 

FRAME ("OPTIONAL" (TRAME ,LERR\ ! -INTERRUPTS) ) 

#DECL ((VALUE) I RAMI 

(FRAME) COR FRAME ENVIRONMENT ACTIVATION PROCESS)) 
returns a previous Subroutine call 

FREE -RUN (PROCESS) 

#DECL ((VALUE) COR PROCESS '#FALSE ()> 

(PROCESS) PROCESS) 

causes a PROCESS to leave single-step mode 
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FREEZE (S1RIIC1UIU ) 

#DECL ( ( VAI Ilf ) COR VECIOR UVECTOR STRING BYTES) 

(STRUCTURE) COR CPRIMTYPE VECTOR) CPRIMTYPE TUPLE) CPRIMTYPE UVECTOR) 
CPRIMTYPE STRING) CPRIMTYPE BYTES))) 
makes copy of argument in non-moving garbage-collected space 


FUNCT (TRAIII ) 

#DECl ( (VAI III ) AlOM 

(I RAMI) COR FRAME ENVIRONMENT ACTIVATION PROCESS)) 
returns Subroutine name of a given previous Subroutine call 

FUNCTION ( "ARCS" ARCS) 

#DECL (( VAI UE) FUNCTION 

(ARCS) CLIST COP I ATOM] LIST [OPT DECL] ANY)) 
creates a TUNCT ION 

G= ? (NUMIUR-1 NUMBER-2 ) 

#DECL ((VALUE) COR 'T '#FALSE ()> 

(NUimrR-1 NUMBER-?) COR FIX FLOAT)) 
tells whether first argument is greater than or equal to second (predicate) 


G? (NUMBER- 1 NUMBER-2) 

#0ECl ( ( VAI Ur ) COR 'T VFALSC ()> 

(NUimiR-1 NUMBER-2) COR FIX FLOAT)) 
tells whether first argument is greater than second (predicate) 

GASSIGNI O’ (AlOM) 

#DECL ((VALUE) COR 'T '#FALSE ()> 

(ATOM) ATOM) 

tells whether an ATOM has a global value (predicate) 

GBOUND? (AlOM) 

#DECL ( ( VAI UE ) COR ’T ' #FALSE ()> 

(ATOM) ATOM) 

tells svhether an AlOM ever had a global value (predicate) 


GC ("OPTIONAL" MIN (EXHAUSTIVE? C>) MS-FREQ) 

#0ECL ( ( VAI ME ) riX 

(MIN MS-1 RIO) F IX (EXHAUSTIVE?) COR FALSE ANY)) 
causes a gaihagc collection and changes garbage-collection parameters 


GC-DUMP (ANY PR1NTB) 

#DECL ((VAIIir) COR ANY CtlVECTOR CPRIIITYPE WORD))) 
(ANY) ANY ( PR INTO ) COR CHANNEL FALSE)) 
dumps an object so that it can be reproduced exactly 
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GC-MON ( "OP I IOI1AL " SWITCH) 

#DECt ((VAIUE) <OR 'T ' #r ALSE ()> 

(SWI I CM ) COR TAtSE ANY> ) 
turns garbage-collection itioniioring off or on 

GC-READ ( RE AOB "OPTIONAL" (EOr -ROUTINE 'CERROR ...>)) 

#DECL ( ( VAI IIT ) ANY 

(RfAOli) CHANNEL (EOF -ROUTINE) ANY) 
inputs an object that was previously GC-DUMPetl 

GOECL ("ARCS" ARCS) 

#DECL ((VAI UE) ANY 

(ARCS) <1 1ST [REST CLIST [REST ATOM]) COR ATOM FORM)])) 
declnrrs the type/M met lire of tlie global value of ATOMs 

GET (ITEM INDICAIOR "OPIIONAL" ( IF-NONE C))) 

#DECL ((VALUE) ANY 

(HIM) COR STRUCTURED ANY) (INDICATOR) COR FIX OFFSET ANY) (IF-NONE) ANY) 
does NTH or GEIPROP 

GET-OECt (ATOIT-OR-OrrSn) 

#DECL ((VAI lit) COR AlOM FORM '#FALSE ()> 

(ATOM-OR-OFFSET) COR LOCO OFFSET)) 
gets the type declaration for an ATOM'S value or an OFFSET 

GETBITS (I ROM I KID) 

#DECL ((VALUE) WORD 

(FROM) COR CPRIMTYPE WORD) CPRIMTYPE STORAGE)) (FIELD) BITS) 
returns a bit firld of a machine word or STORAGE address 

GETL (ITEM INDICAIOR "OPTIONAL" (IF-NONE <>)) 

#DECL ((VALUE) COR LOCATIVE LOCAS ANY) 

(ITEM) COR S FRUC IURED ANY) (INDICATOR) COR FIX OFFSET ANY) (IF-NONE) ANY) 
does AT or GET PL 

GETPL (ITEM INDICATOR "OPTIONAL" (IF-NONE <>)) 

ADECL ( (VALUE ) COR I OCAS ANY) 

(I1EM INDICAIOR IF -NONE ) ANY) 
returns a locative to an association 

GETPROP (IIFM INDICAIOR "OPTIONAL" (IF-NONE <>)) 

#DECL ((VALUE) ANY 

(ITEM INDICATOR IF-NONE) ANY) 
returns the value associated with an item under an indicator 
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GLOC (ATOM "OPTIONAL" (MAKE-SLOT <») 

#DECL ((VALUE) LOCO 

(ATOM) ATOM (MAKE-SLOT) <0R FALSE ANY» 
returns a locative to tlie global-value cell of an ATOM 


GO (LABEL) 

#DECL ((VALUE) ANY 

(LABEL) <OR ATOM TAG>) 
goes to a label and continues evaluation from there 

GROW (U/VECTOR END BEG) 

#DECL ((VALUE) <OR <PRIMTYPE VECTOR> <PRIMTYPE UVECTOR» 

(U/VECTOR) <OR <PRIMTYPE VECTOR> <PRIMTYPE UVECTOR» (END BEG) FIX) 
increases the size of a vector or uniform vector 

GUNASSIGN (ATOM) 

#DECL ((VALUE ATOM) ATOM) 
causes an ATOM to have no global value 

GVAL (ATOM) 

#DECL ( (VALUE) ANY 
(ATOM) ATOM) 

returns the global value of an ATOM 

HANDLER ( IHEADER HANDLER "OPTIONAL" (PROCESS IPROCESS 0)) 

#DECL ((VALUE) HANDLER 

(IHEADER) IHEADER (HANDLER) <OR HANDLER APPLICABLE) (PROCESS) PROCESS) 
creates an interrupt HANDLER 

HANG ("OPTIONAL" (UNHANG <») 

#DECL ((VALUE) ANY 
(UNHANG) ANY) 

does nothing, interrupt ibly . potentially forever 

IBYTES (SIZE LENGTH "OPTIONAL" (ELEMENT 0)) 

#DECL ((VALUE) BYTES 

(SIZE LENGTH) FIX (ELEMENT) ANY) 
creates a byte-string from implicit arguments 

IFORM (LENGTH "OPTIONAL" (ELEMENT #LOSE 0)) 

#DECL ((VALUE) FORM 

(LENGTH) FIX (ELEMENT) ANY) 
creates a FORM front implicit arguments 
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HIST (LENGTH “OPTIONAL' (ELEMENT HOSE 0)) 
#DECL ((VALUE) LIST 

(LENG1H) FIX (ELEMENT) ANY) 
creates a LIST from implicit arguments 

IMAGE (COOC "OPTIONAL' (CHANNEL .OUTCHAN)) 
#DECl ((VALUE COOF) FIX 
(CHANNEL) CHANNEL) 

sends an image-mode character via an output CHANNEL 

IN (POINTER) 

#DECL ((VALUE) ANY 

(POINTER) LOCATIVE) 
returns the object pointed to bjr a locative 


INDEX (OFFSET) 

#DECL ((VALUE) FIX 

(OFFSET) OFFSET) 

fetches the integral part of an OFFSET 

INDICATOR (ASSOCIATION) 

#DECL ((VALUE) ANY 

(ASSOCIATION) ASOC) 

returns the "indicator" field of an association 

INSERT (PNAHE OBI 1S1 ) 

#DECL ((VALUE) ATOM 

( PNAME ) <OR ATOM STRING) (OBLIST) OBLIST) 

adds an ATOM to an OBI 1ST 

INT-LEVEL ("OPTIONAL' NEV-INT-LEVEL) 

#DECL ((VALUE) FIX 

(NEW-INT-LEVEL) FIX) 

returns and/or sets current interrupt level 

INTERRUPT (NAME 'TUPLE' HANDLER-ARGS) 

#DECL ((VAIUE) <OR *T ’#FALSE ()> 

(NAME) <0R STRING ATOM I HEADER) (HANDLER-ARGS) TUPLE) 

causes an interrupt to occur 

INTERRUPTS () 

#DECL ((VALUE) OBLIST) 

returns the OBLIST on which interrupt names are kept 
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IPC-HANOI I R (IIOHY 1 YPl 0 1 HI R-NAME-1 OTHER-NAME-? 

-OPUONAL" (MY-NAME-1 <UNAME >) (MY-NAME-2 <JNAME>) ) 
#DECL ((VAI HE) ’T 

( ROITY ) <OR STRING UVECTOR> (TYPE) FIX 
(OKU R-NAMI - 1 01 HI R-NAMF -2 MY-NAME-1 MY-NAME-2) STRING) 
is the built-in handler for "IPC" (ITS version only) 

IPC-Ofr () 

*DECl ((VAIUI ) ' 1 ) 

stops all listening on the IPC device (ITS version only) 

IPC-ON ("OPIIONAI" (MY-NAME-1 <UNAME > ) (MY-NAME-2 <JNAME>) ) 
#DF.CL ((VAIIIl ) *1 

(MY-NAME - 1 MY-NAME-2 ) STRING) 
listens on the IPC. device (ITS version only) 

ISTORAGl (I.ENGIII "OPIIONAI" (ELEMENT #LOSE 0)) 

#DECL ((VALUE) STOr \GE 

(I ENGTII) E t (ELEMENT) ANY) 

creates a non-garhage-i dlected S10RAGE from implicit arguments (archaic) 

ISTRING (LENGTH "OPTIONAL” (ELEMENT !\ A 0)) 

<»0ECl ( (VAI III ) STRING 

(II NGIH) I IX (Ell MINT) ANY) 
creates a character-string from implicit arguments 

ITEM (ASSOCIATION) 

*DECL ((VAIIIl ) ANY 

( ASSOC I AT ION) ASOC) 
returns the "item" field of an association 

I TUPLE (I.ENGIII "OPIIONAL" (El EMI NT #L0SE 0)) 

#DECL ((VALUE) IIIPLE 

(LENGIH) FIX (ElFMENT) ANY) 
creates a IUPII from implicit arguments 

IUVECTOR (LENGTH "OPTIONAL" (ELEMENT #L0SE 0)) 

#DECL ( (VAI UE ) UVECTOR 

(II NGIII) I IX (El EMENT) ANY) 
creates a UVECIOR from implicit arguments 

IVECTOR (LENGTH "OPTIONAL" (ELEMENT #L0SE 0)) 

#DECL ((VAI III ) VI C 1 OR 

(LENGTH) FIX (ELEMENT) ANY) 
creates a VECTOR from implicit arguments 


Appendix 2 


240 


The MDL Programming' Language 


JMAME ( ) 

♦DEC1 ((VAHID SIRING) 
munis the " joh iuiiip" of Mill process 

L=? (NUMIUR-l HUMBER-2) 

#DCCl ((VAIUE) <0R ' I VFALSE ( )> 

( HIIMIU R- I NIIHBTR-2) <0R FIX FLOAT)) 
tells whether fiist argument is less than or equal to second (predicate) 

L? (NUMBIR-I NHMRfR-2) 
eOtCI ((VAl HI) vOR 1 1 * 4F At SF ()> 

( NUMBER- 1 NUMBER-2) <0R FIX FLOAT)) 
tells whether fust argument is less than second (predicate) 

LEGAL 7 (SIA< K-ORJICT ) 

#0ECL ((VAIUF) <OR *1 1 *f ALSE ()> 

(STACK-OBJECT ) ANY) 

tells whethei argument (which might live on the control stack) is still legal (predicate) 

LENGTH (OBJECT) 

#0ECL ( ( VAl tl[ ) FIX 

(OBJICT) STRtIC. HIRED) 
returns the nnnihei of elements in a structure 


LENGTH 7 (OBJECT MAX) 

#DFCI ((V/Alllt) <OR (IX ' el ALSE ()> 

(OBJECT) SIRltC HIRED (MAX) FIX) 

tells whether length of stnuture is less than or equal to an integer (predicate) 


! 



LINK (EXI’R I’NAtll "ON lOIJAl ■ (OBI 1ST <1 .0BL1ST))) 
#DECL ((VALUE EVER) AMY 

( PNAME ) SIRING (OBLIST) OBLIST) 
creates a symbolic l INK to any expression for READing 

LIST ( " lUI’LE" 1 1 E ME MIS) 

#0ECL ((VALUE) I 1ST 

(I 1 1 Ml MIS) 1UPLE) 
creates a I IS1 from explicit arguments 

LISTEN (“TUm* INFO) 

#DECl ( (VAl III ) ANY 

(INTO) TUPLE ) 

stops and informs user that MDL is listening 
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LLOC (A10M -OPTIONAL- CNV) 

#DECL ((VALUE) LOCO 

(ENV) <0R FRAME ENVIRONMENT ACTIVATION PROCESS)) 
returns a locative to the local-value cell of an ATOM 

LOAO (CHANNEL "0P1I0NAL" (LOOK-UP .OBLIST)) 

#0ECL ((VALUE) ’ "DONE" 

(LOOK-UP) <OR OBLIST <LIST [REST <OR OBLIST ’DEFAULT)]))) 
reads and evaluates all objects via an input CHANNEL 


LOCATIVE? (OBJECT) 

#DECL ((VALUC) COR ’T '#FALSE ()> 

(OBJECT) ANY) 

tells whether an object is a locative (predicate) 

LOG (NUMBER) 

#DECL ( ( VAl ME ) FI OAT 

(NUMBER) COR FIX FLOAT)) 
returns natural logarithm of a number (arithmetic) 

LOGOUT () 

*OECL ((VALUE) 'AFALSE ()) 

logs out of the operating system (useful for background processes) 

LOOKUP ( PNAMF OBI 1ST) 

#DECL ((VALUE) COR ATOM '#FALSE ()> 

( PNAME ) STRING (OBLIST) OBLIST) 
returns an ATOM found on a given OBLIST 


LPARSE ( "OPTIONAL" 

(STRING .PARSE-STRING) (RADIX 10) (LOOK-UP .OBLIST) PARSE-TABLE LOOK-AHEAD) 
#DECL ((VAIUE) LIST 

(SIRING) STRING (RADIX) FIX (PARSE-TABLE) VECTOR (LOOK-AHEAD) CHARACTER 
(LOOK-UP) COR OBLIST CLIST [REST COR OBLIST ’DEFAULT)]))) 
returns a LIST of the objects parsed from a STRING (sections 7.6.6.S, 15.7.2. J7.I.S) 

LSH (WORD AMOUNT) 

#0ECL ((VALUE) WORD 

(WORD) CPRIMTYPE WORD) (AMOUNT) FIX) 
shifts hits in a machine word 


LVAL (ATOM "OPTIONAL* ENV) 

#OECL ((VALUE) ANY 

(FNV) COR FRAME ENVIRONMENT ACTIVATION PROCESS)) 
returns the local value of an ATOM 
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HA IN () 

#DECL ((VALUE) PROCESS) 
returns # PROCESS 1 (the main PROCESS) 

MANIFEST ("TUPLE* ATOMS) 

#OECL ((VALUE) *T 

(ATOMS) < TUPLE [REST ATOM])) 
declares the global values of ATOMs to be constant 

MANIFEST? (ATOM) 

#DECL ((VALUE) <OR *T '#FAL5E ()> 

(ATOM) ATOM) 

tells whether the global value of an ATOM is constant (predicate) 

MAPF (FINAL-FCN LOOP-TCN "TUPLE" STRUCTURES) 

#DECL ((VAIUE) ANY 

(FINAL-FCN) <0R APPLICABLE FALSE > (LOOP-FCN) APPLICABLE 
(STRUCTURES) <TUPLE [REST STRUCTURED ]>) 
maps function onto elements of structures 


MAPLEAVE ("OPTIONAL" (VAL T)) 

#DECL ( 

(VAL) ANY) 

leaves the most recent MAPF/R with a value 

MAPR (FINAL-FCN LOOP-FCN "TUPLE" STRUCTURES) 

#DECL ( (VAIUF ) ANY 

(FINAL-FCN) <0R APPLICABLE FALSE) (LOOP-FCN) APPLICABLE 
(STRUCTURES) <TUPLE [REST STRUCTURED])) 
maps function onto RESTs of structures 

MAPRET ("TUPLE" ELEMENTS) 

#DECL ( 

(ELEMENTS) TUPLE) 

returns a variable number of objects to the current MAPF/R 


MAPSTOP ("TUPLE" ELEMENTS) 

#DECL ( 

(ELEMENTS) TUPLE) 

MAPRETs. then slops looping of MAPF/R and causes application 

MAX ("TUPLE" NUMBERS) 

#DECL ((VALUE) COR FIX FLOAT) 

(NUMBERS) < TUPLE [REST COR FIX FLOAT)])) 
returns the greatest of its arguments (arithmetic) 
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HE () 

#D1 Cl ( ( VAI Ilf ) PROCISS) 
returns the cuirent PROCESS 

MEMBER (OBJTCT STRUCTURE) 

#DECI ( ( VAI III ) COR STRUCTURED ' #FALSE ()> 

(OBJECT) ANY (STRUCTURE) STRUCTURED) 

tells whether an object is "structurally" equal to some element of a structure (predicate) 

MEMO (OBJICI STRUCTURE) 

#DECL ((VAIUI) <0K STRUCTURED *#FAISE ()> 

(OBJECT) ANY (STRUCTURE) STRUCTURED) 
tells whether an ob ject is "exactly" equal to some element of a structure (predicate) 

HIN ("lUPLE" NUMBERS) 

# DECL ( (VAI UE) COR EIX FLOAT) 

(NUMBIRS) CTIIPIE [REST COR FIX FLOAT)])) 
returns the leasi of its arguments (arithmetic) 


MOBIIST (NAME "OPTIONAL" (LENGTH 13)) 

#DECI ( (VAI III ) ORI 1ST 

(NAME ) AlOM (LENGTH) FIX) 
creates or gets an OUT 1ST 

MOD (NUMUIR MOmilUS) 

#DECL ( ( VAI UE ) I IX 

(NUMBER MODULUS) FIX) 

returns number-theoretic remainder (fixed-point residue) (arithmetic) 

MONAD? (OBJECT) 

#DECL ((VALUE) COR 'T ' *f ALSE ()) 

(OBJECT) ANY) 

tells whether au ob ject is either unstructured or an empty structure (predicate) 

N = * ? (OBJECT-1 OBJECT -2 ) 
fOFCI ( ( VAI IIP ) COR 'T '^TALSE ()> 

(OBJECT -1 OBJICI -2) ANY) 

tells whether two ob jects arc NOT "exactly" equal (predicate) 

N*7 (OB .11 CT - 1 OBJICT-?) 

#DECL ((VAI 111) COR 1 T 'ef ALSE ()> 

(OBJECT- 1 OBJECT -2) ANY) 

tells whether two objects are NOT "structurally" equal (predicate) 
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NETACC (CIIANNI l ) 

#01 Cl ( ( VAl III ) (OR CIIANNl L 1 #1 Al SE ()> 

( CIIANNI I ) CIIANNl. L ) 
accept % a nclwoik connect ion 

NETS (CIIANNl l ) 

*1)1 Cl ((VAl III CIIANNI l ) CIIANNCl ) 
forces operating-system net work-CHANNFl buffer to be sent 

NETS! All (CIIANNI I ) 

#DECI ( (VAl III ) <UVf CIOR I IX f IX F1X> 

(CIIANNI I ) CIIANNI I ) 

returns state infonnation for a network CHANNEL 

NIWIYI'I (NIW-IYI’I OID-lYPI "OIMIONAL" PATIERN) 

*1)1 Cl ( (VAl III III. W- I YI’I ) A I Oil 

(OIO-IYI'L) AIOM (PATTERN) <0R ATOM fORh>) 
defines a new data type 

NEXT (ASSOC] A I ION) 

*DLCI ( ( VAl HI ) < OR ASOC '*IAISE ()> 

( ASSOC I A I ION) ASOC) 

returns the nest object in t lie association chain 

NEXICIIK ("OIMIONAl" (CHANNEL . INC HAN) (LOF -ROUTINE '(ERROR ...>)) 
*OECl ((VAl III ) cOK CHAR AC T ( R I 1X> 

( CIIANNI I ) CIIANNI I ( I 01 -ROUT INI ) ANY) 
returns the character that will next be read via an input CHANNEL 

NOT (01), II Cl) 

#DF.Cl ( (VAl III ) COR 'I '*1 Al SF. ( )> 

(011,11 Cl) (OR I Al SE ANY> ) 
computes logical “not" of a truth-value 

NTH ( S 1 RlIC IHRI 0 "OIMIONAL" N) 

*DECL ( (VAl III ) ANY 

(N) (OR I IX 01 1 SET>) 
fetches the Nib element of a structure 

OBI IS I 7 (AIOM) 

*DLCl ( { VAl HI ) COR OllllSl ’*FAISE ()> 

(AIOM) AIOM) 

returns an AlOM's OIU ISI or false if none (predicate) 
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Of F ( IN 11 RRUI’l "Ol'l IONAl H WHICH) 

#DICl ( (VAI III ) < OR HANOI TR HEADER ’IFALSE ()> 

( lNll.RRUI’l ) COR HANOUR IIUADFR SIRING ATOM) (WHICH) COR CHANNEL LOCATIVE)) 
removes mi interrupt HANOI ER or destroys an interrupt 

OFFSE 1 (H PA 1 II UN) 

#DLCI ( (VAI III ) 01 I SI I 

(N) I IX (I'AIURN) COR ATOM FORM)) 
creates an integer with atladied type declaration 

ON (NAHI AmiCAIllI PRIORI TY "OPTIONAL" (PROCESS 0) WHICH) 

#Dl.Cl ( (VAI HI ) HANDLER 

( N Alii ) COR SIRING ATOM) (APPIICABLE) APPLICABLE (PRIORITY) FIX 
(PROCISS) COR I IX PROCESS) (WHICH) COR CHANNEL LOCATIVE)) 
turnc on an intmnpt anil creates an interrupt HANDLER 

OPIN ( "OP I IONAl " (11001 "READ") h TUPLC" FILE-NAME) 

#01 CL ( ( VAI III ) COR CHANNII CIAISE STRING SIRING FIX)) 

(MODI ) SIRING (THE -NAME ) TUPLE) 
creates anil open* an I/O CIIANNEI 


OPEN-NR ( "OP I IONAl " (MODI "RIAO") "IDPLE" I JI.E-NAME ) 

#Dl Cl ((VAI HI ) cOR CHANNEL CIALSE SIRING SIRING FIX» 

(MODI) SIRING (I HE -NAME) TUPLE) 
creates ami opens an I/O CIIANNI l without dunging file’s reference date 

OR ("ARCS" ARGS) 

#0(01 ( (VAI III ) COR I Al SI ANY) 

(ARGS) MSI) 

computes logical inclusive "or" of iiutli-values, evaluated by the Subroutine 

OR? ( " HUM I " Itll’l I ) 

#01 Ct ((VAI (II ) COR f At SI ANY) 

( Till’ll ) lUPlt) 

coinpiiirs logical inclusive "or" of trulli-valucs. evaluated at call time 

ORB ("TIIPIL" WORDS) 

#DE Cl ( (VAI III ) WORD 

(WORDS) < fill’ll (RISE < PRIM TYPE WORD)])) 
computes bitwise inclusive "or" of machine svords 

OVERIIOW ("OPT IONAl." SWITCH) 

#DECl ( (VAI III ) COR ’ T ’#1 ALSE ( )> 

(SWIICIO COR ANY FALSE)) 
enables or disables overflow error (arithmetic) 
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PARSE ("OPTIONAL" 

(SIRING .PARSF.-SIRING) (RADIX 10) (LOOK-UP .OBLIST) PARSE-TABLE LOOK-AHEAD) 
#OECL ((VAllir ) ANY 

(SIRING) SIRING (RADIX) FIX (PARSE-TABLE) VECTOR (LOOK-AHEAD) CHARACTER 
(LOOK-UP) <OR OBLIS1 <LIST [RCST <OR OBLIST 'DEFAULT)]))) 

parses a SIRING intn an object (sections 7.66.2. 15.7.2. 17.1.3) 

PCODE ( NANI 01 ISM) 

#DECL ((VAIUE) PCODE 

(NAflD SIRING (OFFSET) FIX) 

creates pointer to pure RSUBR code 

PNAME (A 1011) 

#DECI ( (VAI III ) STRING 
( A I OH ) AIOM) 

returns the print-name of an ATOM as a distinct copy 

PRIM TYPE (OBJECT) 

#DFCL ((VAI III ) AIOM 
(OBJECT) ANY) 

returns the primitive data type of an object 

PRIM1YPI -C ( I YPI ) 

#DECl ((VAtUL) PRIMT YPF-C 
(TYPE) ATOM) 

gets a "storage allocation code" for a data type 

PR IN 1 (OBJECT "OPTIONAL" (CHANNEL .OUTCHAN)) 

#DFCL ((VAI1IF OBJECT) ANY 
(CIIANNI I ) f IIANNFI ) 

prints an object via an output CHANNEL 

PRINC (OBJECT "0P1I0NAI" (CHANNEL .OUTCHAN)) 

#DFCl ((VAI III OBJECT) ANY 
(CIIANNI l ) CIIANNI L) 

prints an object via an output CHANNEL without STRING or CHARACTER brackets or ATOM trailers 

PRINI (OBJECT "OPUONAI" (CHANNEL .OUTCHAN)) 

#DECL ( (VAI Ul OBJECT) ANY 
(CHANNEL) CHANNEL) 

prints an object via an output CHANNEL between ucw-line and space 
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PRINTB (BUFFER CHANNEL ) 

#DECL ( (VALUE BUFFFR) <<0R UVECTOR STORAGE) [REST CPRIMTYPE W0RD>]> 

(CHANNEL) CHANNEL) 

writes binary iiirormation via an output CHANNEL 

PRINTSTRING (BUFFER "OPTIONAL" (CHANNEL .OUTCHAN) (COUNT <LENGTH .BUFFER))) 
#DECL ((VALUE COUNT) FIX 

(BUFFER) STRING (CHANNEL) CHANNEL) 
writes contents of a STRING via an output CHANNEL 

PRINTTYPE (TYPE "OPTIONAL" HOW) 

#DECL ((VALUE) COR ATOM APPLICABLE *#FALSE ()> 

(TYPE) ATOM (HOW) COR ATOM APPLICABLE)) 
specifies or returns how a data type is printed 

PROCESS (STARTUP) 

#DECL ((VAIUE) PROCESS 

(STARTUP) APPLICABLE) 

creates a new PROCESS with given startup function 

PROG ("ARCS" ARGS) 

#DECL ((VALUE) ANY 

(ARCS) CLIST [OPT ATOM] LIST [OPT DECL] ANY)) 
executes sequential expressions 

PURIFY ("TUPLE" TUPLE) 

#DECL ((VALUE) ANY 

(TUPLE) TUPLE) 

purifies objects for sharing by different operating-system processes 

PUT (ITEM INDICATOR "OPTIONAL" VAL) 

#0ECL ((VALUE) ANY 

(ITEM) COR STRUCTURED ANY) (INDICATOR) COR FIX OFFSET ANY) (VAL) ANY) 
stores into structure or does PUTPROP 

PUT-DF.CI (IDENTIFIER PATTERN) 

#DECL ((VALUE IDENTIFIER) COR LOCO OFFSET) 

(PATTERN) COR ATOM FORM)) 

changes the type declaration for an ATOM'S value or an OFFSET 

PUTBITS (TO FIELD "OPTIONAL" (FROM 0)) 

#DECL ((VALUE) CPRIMTYPE WORD) 

(TO FROM) CPRIMTYPE WORD) (FIELD) BITS) 
sets a bit field in a machine word 
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PUTPROP (ITEM INDICATOR •OPTIONAL" VAL) 

#DECl ((VALUE) ANY 

( ITFM INDICATOR VAL) ANY) 

(disassociates a value with an item under an indicator 

PUTREST (HEAD TAIL) 

#DECL ((VALUE HEAD) CPRIMTYPE LIST> 

(TAIL) <PRIMTYPE LIST>) 
replaces Hie rest of a list 

QUIT () 

#DECL ((VALUE) 'IFALSE ()) 
exits from MDL gracefully 

QUITTER (WAS-TYPE 0 CHANNEL) 

#DECL ((VALUE WAS-TYPEO) CHARACTER 
(CHANNEL) CHANNEL) 

is the interrupt handler for A G and ''S quit features 

QUOTE ("ARGS" ARGS) 

#DECL ((VALUE) ANY 
(ARGS) LIST) 

returns the first argument unevaluated 

RANDOM ("OPTIONAL* SEED-1 SEED-2) 
iDECL ( (VALUF ) FIX 

(SEED-1 SEED-2) FIX) 

generates a uniform pseudo-random integer (arithmetic) 

READ ("OPHONAI" 

(CHANNEL .INCHAN) (EOF-ROUTINE '<ERROR ...>) (LOOK-UP .OBLIST) READ-TABLE) 
#DECL ((VALUE) ANY 

(CHANNEL) CHANNEL (EOF-ROUTINE) ANY (READ-TABLE) VECTOR 
(LOOK-UP) <OR OBLIST <LIST [REST <OR OBLIST 'DEFAULT>]») 
reads one object via an input CHANNEL (sections ll.l.l.l, 11.3. 15.7.1, 17.1.3) 

READB (BlirrER CHANNEL "OPTIONAL" (EOF-ROUTINE '< ERROR ...>)) 

#DECL ((VALUE) FIX 

(BUFFER) <<OR UVECTOR STORAGE) [REST <PRIMTYPE WORD)]) 

(CHANNEL) CHANNEL (EOF-ROUTINE) ANY) 
reads binary information via an input CHANNEL 


Appendix 2 


The MDL Programming Language 


249 


READCHR ( "OPTIONAL" (CHANNEL .INCIIAN) (EOF -ROUTINE TERROR ...>)) 

#DECL ((VALUE) <OR CHARACTER FIX> 

(CHANNEL) CHANNEL (EOF-ROUTINE) ANY) 
reads one character via an input CHANNEL 

REAOSTRING (BUFFER "OPTIONAL" (CHANNEL .INCHAN) (STOP < LENGTH .BUFFER» 

(EOF-ROUTINE '<ERR0R ...») 

#DECL ((VALUE) FIX 

(BUFFER) STRING (CHANNEL) CHANNEL (STOP) <OR FIX STRING) (EOF-ROUTINE) ANY) 
reads into a STRING via an input CHANNEL 

REALTIMLR ("OPTIONAL" INTCRVAL) 

#DECL ((VALUE) <OR FIX FLOAT ' #FALSE ()> 

(INTERVAL) <OR FIX FLOAT)) 

sets or fetches interval for real-time interrupts (ITS version only) 

REMOVE ( PNAME "OPTIONAL" OBLIST) 

#DECl ((VALUE) <OR ATOM ’fFALSE ()) 

(PNAME) <OR ATOM STRING) (OBLIST) OBLIST) 
removes an ATOM from an OBLIST 

RENAME ("TUPLE" FILE-NAME/S) 

#0ECL ((VALUE) <OR 'T <FALSE STRING FIX)) 

(FILE-NAME /S) <TUPLE <OR STRING CHANNEL))) 
renames or deletes a disk file 

REP () 

#DECL ((VALUE) ANY) 

is the built-in function for READ-EVAL-PRINT loop 

REPEAT ("ARCS" ARGS) 

#DECL ((VALUE) ANY 

(ARGS) CLIST (OPT ATOM] LIST [OPT DECL] ANY)) 
executes sequential expressions repeatedly 

RESET (CHANNEL) 

#DECL ((VALUE) COR CHANNEL CFALSE STRING STRING FIX)) 

(CHANNCL) CHANNEL) 
reopens an I/O CHANNEL at its beginning 

REST (STRUCTURED "OPTIONAL" (N 1)) 

#DECL ((VALUE) STRUCTURED 
(N) FIX) 

removes the first N elements from a structure and changes to primitive data type 
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RESTORE ( ’OPTIONAL" NAME-1 NAME-2 NAME-3 NAME-4) 

#DECl ((VALUE) • "RESTORED" 

(NAME-1 NAME-2 NAME-3 NAME-4) STRING) 
restores MDL's state from a file 

RESUME (VAl. "OPTIONAL ■ (PROCESS <RESUHER>)) 

#DECL ((VALUE) ANY 

(VAL) ANY (PROCESS) PROCESS) 
transfers ex rent inn to another PROCESS 

RESUMER ("OPTIONAL" (PROCESS <ME») 

#DE CL ((VALUE) <OR PROCESS '#FALSE ()> 

(PROCESS) PROCESS) 

returns the PROCESS that last resumed the given PROCESS 

RETRY ("OPTIONAL" FRAME) 

#DECL ( 

(FRAME) FRAME) 

retries a previous Subroutine call, usually from the error level 

RETURN ("OPTIONAL" (VAL T) (ACTIVATION .LPR0G\ ! -INTERRUPTS)) 
#DECL ((VALUE) ANY 

(VAL) ANY (ACTIVATION) ACTIVATION) 
leaves a PROG/REPEAT with a value 

RGLOC (ATOM "OPTIONAL" (MAKE-SLOT <>)) 

#0ECL ((VALUE) LOCR 

(ATOM) ATOM (MAKE-SLOT) <OR FALSE ANY>) 
returns a locative to the global-value cell of an ATOM for pure-program use 

ROOT () 

#DECL ((VALUE) OBLIST) 
returns the OBLIST containing names of primitives 

ROT (WORD AMOUNT) 

#DECL ((VALUE) WORD 

(WORD) <PR1MTYPE WORD> (AMOUNT) FIX) 
rotates bits in a machine word 

RSUBR (CANDIDATE) 

#DECL ((VALUE) RSUBR 

(CANDIDATE) <VECTOR <OR CODE PCODE> ATOM DECL [REST ANY]>) 
creates an RSUBR 
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RSUBR-l N I RY ( C AMI» I DATE OFFSET) 

#DFCL ( ( VAl Ur ) RSUBR-l NTRY 

( CANDIDATE ) CVECTOR <0R ATOM RSUBR) ATOM DECL> (OFFSET) FIX) 
adds ail rutty point to ail RSUBR 

RSUBR-l INk ("OPTIONAL" SWITCH) 

*01 CL ( ( VAl III ) <0R 'T *#F ALSE ()> 

(SU1 It'll) <0R I AISE ANY>) 
enables or disables l lie antomalic RSUBR linking feature 

RIININT ( * IIIPI I * IUPII) 

#DECL ((VAl III ) ANY 

( 1 Ill'Ll ) TUPLE) 

applies iutrriiipt handler (for internal use only) 

RUNT I Ml R ("0P110NAL" 1N1ERVAL) 

#DECl ((VAUIL) <0R T IX FLOAT *#FALSE ()> 

( INIl RVAl ) <0R I IX T L OAT > ) 

sets or fetches interval for run-time interrupt (ITS version only) 

SAVE ("TUPLE" FILC-NAME-AND-GC?) 

#DCCl ((VAl III) ’"SAVED" 

(I 11 E-HAMF -AND-GC?) <TIIPIE [OPT STRING] [OPT STRING] 

[OPT STRING] [OPT STRING] [OPT <0R FALSE ANY)])) 

writes the entire state of MDL to a file 

SEND (Ollll R-NAMI -1 01 (IF R-NAME-2 BODY 

"OPTIONAL" (IYPI 0) (MY-NAMF- 1 <UNAME>) (MY-NAME-2 <JNAME>) ) 

#DECl. ( ( VAl III ) <OR ’T 1 ALSE ()> 

(OTHrR-NAMF-1 01 IIFR-NAMF -2 MY-NAME-1 MY-NAME-2) STRING (TYPE) FIX 
(BODY) <0R SIRING SI OR AGE <UVECT0R [REST <PRIMTYPE WORO>]») 
sends an I PC message (ITS version only) 


SEND-WA 1 1 (Ollll R-NAMI -1 Ollll R-NAME-2 BODY 

"OPllONAl" ( 1 YPE 0) (MY-NAML-1 <UNAME>) (MY-NAME-2 < JNAME>) ) 
#0ECL ( ( VAL HI ) '1 

( 01 III R -NAME - 1 Ollll R-NAME-2 MY-NAME-1 MY-NAME-2) STRING (TYPE) FIX 
(BODY) <0R STRING SIORAGE OIVECTOR [REST <PRIMTYPE W0RD>]») 
sends an I PC message and waits for it to be received (ITS version only) 

SET ( AIOM l VAl "OPllONAl" ENV) 

#DECl ((VAl III I VAl ) ANY 

(ATOM) AIOM (INV) <0R FRAME ENVIRONMENT ACTIVATION PROCESS)) 
changes the local value of an AIOM 
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SETG (A IOM tiVAl ) 

*DECL ( ( VAI III GVAI ) ANY 
(ATOM) A 1 01 1 ) 

changes (lie global value of an ATOM 

SETIOC ( I'OlNIt R OBJECT) 

#DECL ( (VAI UL OBJECT) ANY 
( POINTER ) LOCATIVE) 

changes (hr content* pointed to by a locative 

SIN (NUMBER) 

#DECL ((VAI BE) ELOAT 

(NIIIII5I R) <0R I IX I LOAT > ) 
returns sine of a number (arithmetic) 

SLEEP (<0R r IX El OAT > "OPTIONAL" (UNHANG <>)) 

#DECL ( (VAI III ) ANY 

(UNHANG) ANY) 

does nothing, intcnuptihly. the given number of seconds 

SHAME ( "OPT IONAI " UIRICTORY) 

#DECI ((VALUE DIRECTORY) SIRING) 
sets or returns the directory name used by default for new I/O CHANNELS 

SORT (PRIIl MY-SIIUIC "OPTIONAL" (RECORD-LENGTH 1) (KEY-OFFSET 0) 

"TUPLE” OTHER-STRUCS-AND-RECORD-LENGTHS) 

#DECL ((VALUE kE Y-STRUC ) <0R <PRIMTYPE VECTOR) <PRIMTYPE TUPLE) CPRIMTYPE UVECT0R» 
(PRUT) <0R IALSC APPLICABLE) ( RCCORD-LENGTH KEY-OFFSET) FIX 
(Ollll R-S IRUCS-AND-RL CORD-LENGTHS) 

< IUPI E (REST COR CPRIMTYPE VECTOR) CPRIMTYPE TUPLE) CPRIMTYPE UVECTOR)) FIX]>) 
sorts elements of a structure and rearranges other structures 

SPECIAL-CHICK ("OP1 IONAI" SWLICH) 

#DECL ((VALUE) COR 'T 'IFAISE ()> 

(SWITCH) COR ANY EALSE)) 
turns interpreter special-checking on or off 

SPECIAL-MODE ("OPTIONAL" SWITCH) 

#DECl. ((VAI LIE) COR 'SPECIAL 'UNSPCCIAD 
(SWITCH) COR 'SPECIAL MINSPECIAL)) 
sets specialty declaration used by default 
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SPNAME ( A 1 OH ) 

#DECL ((VAIUE) STRING 
(ATOM) AIOH) 

returns the print-name of an ATOM by sharing it 


SORT (NUMBER) 

<DECE ( ( VAI ill ) FI OAT 

(NUMIHR) <OR HX F LOAT > ) 
returns square root of a number (arithmetic) 


SQUOTA (SYMIKH ) 

#OECL ( (VALUE ) COR FIX 'FFALSE ()> 

(SYMBOL) CPRIHIYPE W0R0>) 

gets the address of an internal interpreter symbol (for internal use only) 

STACkfORM ("ARCS'* ARCS) 

#DECL ((VALUE) ANY 
(ARCS) LIST) 

applies a function to stacked arguments (archaic) 

STATE (PROCESS) 

#DfCL ((VAHID ATOM 

(PROCISS) PROCISS) 
returns a PROCESS’S current state 


STRCOMP (SIRING- 1 SIRING-?) 

<*0ECL ((VAI III ) COR '1 '0 '-1> 

(STRING-1 SIRING-?) <0R AIOM STRING)) 
compares tun chaiarter-strings or two print-names 

STRING ("lUPIL" I ILMLN1S) 

#0ECL ((VAI HE) SIRING 

(CLCMI NTS) c TUPLE [REST COR STRING CHARACTER) ]>) 
creates a character-string from explicit arguments 


STRUCTURI 0? (OBJECT ) 

#0ECL ((VAIUE) COR 'T 'tTALSE ()) 

(OIUFCT) ANY) 

tells whether an ob ject is structured (predicate) 

SUBSTITUTE (NIWOIP) 

#DFCL ((VAI Ilf 010) ANY 
(NEW) ANY) 

substitutes one ob ject for another in the entire address space 
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SUBSTRUC ( f ROM “0PT10NAI" ( RTS T 0) (AMOUNT <- <LENGTH .OBJECT> .REST>) TO) 
*DECL ( ( VAI 111 10) COR I 1ST VECTOR UVECTOR STRING BYTES> 

((ROM) <OR CPRIMTYPE LIST> <PRIMTYPE VECTOR) <PRIMTYPE TUPLE) 

<PRIMTYPE UVECTOR) <PRIMTYPE STRING) <PRIHTYPE BYTES)) 
(REST AMOUNT) TIX) 
copies (part of) a structure into another 


SUICIDE ( VAI "OPTIONAL" (PROCESS <RESUMER>)) 
ADF.CL ((VAI III) ANY 

(VAL) ANY (PROCESS) PROCESS) 
causes the current PROCESS to die and resumes another 


TAG ( I ABI l ) 

#DECL ( (VATUl ) 1 AG 

(LABEL) ATOM) 
creates a TAG for use by GO 


TERPRI ("OPTIONAL" (CHANNEL .OUTCHAN)) 

#DECL ((VALUE) ' #T ALSE () 

(CHANNEL) CHANNEL) 

prints a carriage-return and line-feed via an output CHANNEL 


TIME ("TUPLE" IGNORED) 

#DCCL ((VAHJE) flOAT 

( TGNORI 0) 1UPIE) 

returns the elapsed execution time in seconds 


TOP ( STRUCTURE ) 

#DECL ((VALUI ) COR VEC10R TUPLE UVECTOR STORAGE STRING BYTES TEMPLATE) 

(STRUCTURE) COR CPR1M1YPE VECTOR) <PRIMTYPE TUPLE) 

CPR1MTYPE UVECTOR) CPRIMTYPE STORAGE) 

CPRIMTYPE STRING) <PRIMTYPE BYTES) <PRIMTYPE TEMPLATE))) 

replaces all elements removed from a non-list structure by RESTing and changes to primitive data 

lyp* 


TTYECIIO (CHANNEI SWITCH) 

#DECL ((VALUE CHANNEL) CHANNEL 
(SWITCH) COR EAISE ANY)) 

turns rchoing (of cliararters typed on a terminal) on or off 


TUPLE ("TUPLE" ELEMENTS) 

ADECL ((VALUE) TUPLE 

(ELEMENTS) TUPLE) 

creates a TUPLE front explicit arguments 
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TYI ("OPTIONAL" CHANNEL) 

#DECL ((VALUE) CHARACTER 
(CHANNEL) CHANNEL) 

inputs a CHAKACIFR from a terminal immediately 

TYPE (OBvirCT) 

#DECL ((VALUE) AIOM 
(OBJECT) ANY) 

returns the data type of an object 

TYPE-C (TYPE "OPTIONAL" PRIMTYPE ) 

#DECL ((VALUE) TYPE-C 

(TYPE PRIMTYPE) ATOM) 
makes a data type code for purc-program use 

TYPE-W (TYPE "OPTIONAL" PRIMTYPE RIGHT-HALF) 

#DECL ((VALUE) TYPE-W 

(TYPE PRIMTYPE) ATOM (RIGHT-HALF) <PRIMTYPE V0RD>) 
makes a data-type machine word for pure-program use 

TYPE? (OBJECT "TUPLE" TYPES) 

#DECL ((VALUE) <0R ATOM '#FALSE ()> 

(OBJEC1) ANY (TYPES) <TUPLE ATOM [REST AT0M]>) 
tells whether an object's data type is one of the given types (predicate) 

TYPEPRIM (TYPE) 

#DECL ((VALUE) ATOM 
(TYPE) ATOM) 

returns a data type’s primitive type 
UNAME ( ) 

*DECL ((VALUE) STRING) 
returns the "user name" of MDL’s process 

UNASSIGN (ATOM "OPTIONAL" ENV) 

#DECL ((VALUE ATOM) ATOM 

(ENV) <OR FRAME ENVIRONMENT ACTIVATION PROCESS)) 
causes an ATOM to have no local value 

UNMANirEST ("TUPLE" ATOMS) 

#DECL ((VALUC) 'T 

(ATOMS) < TUPLE [REST A10M]>) 
declares the global values of ATOMs not to be constants 
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UNPARSI (Olt.im "OPIlONAl" RADIX) 
#DECL ((VAIUE) SIRING 

(OBJECT) ANY (RADIX) FIX) 
creates a SIRING representation of an object 


UNWIND ( 'NORMAL ’CLEAN-UP) 

#DECL ((VALUE) ANY 

(NORMAL Cl LAN-UP ) ANY) 
specifies cleaning-tip (luting non-local return 


UTYPE (UVLCTOR) 

#DECL ( (VAI III ) AlOM 

(UVECIOR) <PRIMI YPE IIVLC10R>) 
returns the data type of all elements of a uniform vector 


UVECIOR ("1UPIL" ILLItrNlS) 

#DECL ((VAUIL) UVE C 1 OR 
(ELEMENTS) TUPLE) 

creates a UVECIOR from explicit arguments 

VALID-TYPE? (TYPE) 

#DECL ( (VAI Ul) COR TYPE-C '#FALSE ()> 

( 1 YPF ) AlOM) 

tells whether an AlOM is the name of a type (predicate) 

VALRET ( MESSAGE ) 

#DECl. ((VAI III ) ' *T Al SC () 

(MESSAGE) COR SIRING FIX>) 
passes a message to the superior operating-system process 


VALUE (AlOM "OPIlONAl" HIV) 

#DECL ((VALUE) ANY 

(ATOM) ATOM (ENV) COR FRAME ENVIRONMENT ACTIVATION PROCESS)) 
returns the local or else the global value of an ATOM 

VECTOR ("IUPIE" ELEMENTS) 

#DECL ((VALUE) VECTOR 

(ELI Ml IIIS) TUPLE) 

creates a VI ClOK from explicit arguments 
XJNAME () 

#DECL ( ( VALlir ) STRING) 
returns the “intended job name" of MDL's process 
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XORB ("TUPLE" WORDS) 

#DECL ((VAIUI ) WORD 

(WORDS) < 1 DPI E [ RES1 <PRIMTYPE WORD>]>) 
computes bitwise exclusive "or” of machine word: 

XUNAMC ( ) 

#0ECL ((VAIUE) SIRING) 
returns the ‘'intended user name" of MDL’s process 
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Appendix 3. Predefined Type* 


On these two pages is a table showing each of Ml)L's predefined TYPE*. its primitive type If 
different, and various flags: S Tor SIRUCIURI.O, I for IVAIIYPL not QU01E, and A for APPLICABLE. 

X means that an object of that IYPI cannot tie CMTYPEd to and hence cannot be READ In (if 
attempted, a CAN' I CM IYPI - IN10 error is usual). 

II means that an object of that IYI'1 cannot tie Rl AD in (if attempted, a SIORAGE-T YPES-DIFFER 
error is usual), that instead it is built by the interpreter or CIITYPfd to by a program, and that iU 
PR IN led representation makes it look as though its IYPI PRIM were different. 

X means that an object of that IYPI is PRINIrd using X notation and can be READ in only that way. 


TYPE 

IYPI PRIM 

S E A 

comments 


AC 1 IVAI ION 

1 RAMI 

X 



ASOC 


II 

sic: only one S 


AIOM 





mis 

WORD 




HYII S 


s 



CIIANNI 1 

VI Cl OR 

s x 



CIIARAC.il R 

WORD 




CiOSURI 

1 ISI 

S A 



com 

tIVI Cl OR 

S 



Df Cl 

l ISI 

s 



DISMISS 

AIOM 


can be returned by interrupt handler 


l NVIRONMI N 1 

1 RAtll 

it 


«■ 

1 Al St. 

1 ISI 

s 



r ix 

WORD 

A 



f 10AI 

WORD 




1 ORM 

1 ISI 

S 1 



1 RAMI 


It 



1 StUlR 

WORD 

A X 



rtlNCttON 

MSI 

S A 



HANOI 1 R 

VI Cl OR 

S X 



lilt ADI R 

vi <: ior 

S X 

"interrupt header" 


ILLEGAI 

WORD 

X 

Garbage collector may put this on non-LEGALT object. 


INK RNAI 

IN II RNAI • IYPI 

X 

should not be seen by programs 


l INk 

AIOM 

X 

for terminal .shorthand 


LIS I 


S l 



LOCA 


II 

locative to HIPIE 
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LOCAS 




B 

locative to ASOC 

LOCO 




B 

locative to BYTES 

LOCO 




X 

locative to G/LVAL 

LOCL 




B 

locative to LIST 

l OCR 




X 

locative to GVAL in pure program 

IOCS 




B 

locative to STRING 

LOCI 




B 

locative to TEMPLATE 

IOCU 




B 

locative to UVECTOR 

LOCV 




B 

locative to VECTOR 

IOSI 

WORM 




a place holder 

MACRO 

MSI 

S 

A 



OBI 1ST 

IIVICIOR 

S 


X 


01 r SC 1 

OFFSET 


A 

X 

1 

pcooi 

WORM 



X 

"pure code" 

PRIM1YPI -C 

WORM 



X 

"pritntype code" 

PROCCSS 




B 


QUICK-1 N1RY 

VICTOR 

5 

A 

X 

an RSUBR'ENIRY that has been QCALLcd and RSUBR- 






LINKcd 

QUICK-RSIIOR 

VI Cl OR 

S 

A 

X/B 

an RSUBR that has been QCAUed and RSUBR-LINKed 

RCADA 

FRAME 



X 

in eof slot during recursive REAM via REAM-TABLE 

RSUBR 

VI Cl OR 

S 

A 

X/B 

if code vector is purr/impiire. respectively 

RSUBR-I N ( RY 

VI C. IOR 

S 

A 

X 


SEGMf N1 

LIST 

S E 




SPLICC 

LIST 

S 



for returning many things via REAM-TABLE 

STORAGE 


S 



If possible, use FREEZE SUBR instead. 

STRING 


S 




SUBR 

WORM 


A 

X 


TAG 

VI C TOR 

S 


X 

for non-local GOs 

TEMPI AH 


S 


B 

The interpreter itself can’t build one. See Lebling (1979). 

TIMI 

WORM 




used internally to identify FRAMES 

TUPIE 


S 


B 

vector on the control stack 

TYPt-C 

WORM 



X 

"type code" 

TYPE -W 

WORM 



X 

"type word" 

UNIiOUNO 

WORM 



X 

value of unassigned but bound ATOM, as seen by locatives 

UVEC IOR 


S E 



"uniform vector" 

VECTOR 


S E 



1 

WORD 







I 
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Appendix 4. Error Messages 

This is .1 list or .ill rrror-n.iming ATOMs initially in the ERRORS OBLIST, in the left-hand column, 
and appropriate examples or elucidations, where necessary, in the right-hand column. 


ACCESS-FA 1 1 UKI 

ALRF At»Y - l»T E INI |)-l RRF T-NON-f AtSE-TO-REDEFINE 
APPL Y-OR-SI ACkl ORM-Of -IStlltR 

ARG-WRONG- 1 YPE 
ARGIIMINI-OUI-OI -RANGE 

ATOM-Al READY-1IIERE 

ATOM -NOT - I YI'I -NAME -OR-SPECIAL-SYMBOL 
ATOM-OM-imn Rl H I -OBI 1 SI 
ATTEMPI- TO-BRE AK-OWN-Sl QUENCE 
ATTEMPT- TO- CHANGE -MAN ITEST -VAR I ABLE 
ATTEMPT - TO-CtOSF- IT Y-CIIANNEL 
ATTEMPI - 10-01 I I R-HNDH f RABLE - INTERRUPT 

ATTEMPT- TO -GROW- VI Cl OR -TOO -MUCH 
ATTEMPI - lO-HIIUG-AIOMS-PNAME 
ATTEMPI - 10-MtlNG-PURE-STRUCTURE 
ATTEMPT- T0-SU1C1PE-10-SELF 
BAO-ARGUME NT-LIST 
BAD-ASC 1 1 -CIIARAC 1 f R 


BAD-BY1E S-PECL 
BAD-CMANN! I 
BAD-CLAUSF 

BAD-DECI ARA1 ION-1 1ST 

BAD-DF I AIM l-OIH IS I -SPE C II ICATION 

BAD-ENIRY-BIOCK 

BA0-CNV1 RONMI NT 
BAD-K1XUPS 
BAD-FUIMRG 
BAO-GC-RI AD-T It E 


L 


ACCESS, RESTORE (Tenex and Tops-20 
versions only) 

First argument to APPLY. STACKFORM, 
MAPF/R doesn’t EVAL all its arguments. 

< ASCI I 999>S Second argument to NTH 
or REST too big or small. 

<INSERT "T" <ROOT»S <LINK 'T "T" 
<R00T»$ 

DECL problem 
INSERT, LINK, REMOVE 
<BREAK-SEQ T <ME»S 

<CLOSE , INCHANXS 

"llndeferable" interrupt (e.g. "ERROR*) 
while INT-LEVEL is too high to handle it 
GROW argument greater than <* 16 1024> 
<PUT <SPNAME T> 1 !\T>S 
attempt to write into pure page 
<SUICIDE <ME»S 
<GDECL ("HI*) STRINGS 
A character with wrong byte site or 
ASCII code more than 177 octal has been 
read (how?). 


Argument to COND is non-LIST or empty 
LIST. 

DECL in bad form 

bad use of DEFAULT in LIST of OBLISTs 
RSUBR-ENTRY does not point to good 
RSUBR. 


CLOSURE in bad form 


J 
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BAD- INPUT -BUFFER 
BAD-LINK 
BAD-MACRO- TABLE 

BAD-OBLIST-OR- LIST- THEREOF 

BAD-PARSF-S1RING 

BAD-PNAME 

BAD-PRIMTYPFC 

BAD- TEMPLA1E -DATA 

BAD-TYPE-CODE 

BAD- TYPE -NAME 

BAD-TYPE -SPECIFICATION 

BAD-USE -OF-BYTE-STRING 

BAO-USE-Or-MACRO 

BAD-USE-OF -SQUIGGLY-BRACKETS 

BAD-VECIOR 

BYTE-SIZE-BAD 

CANT-CHTYPE-INTO 

CANT-FIND- TEMPI ATE 

CANT-OPEN-OUTPUT-FILE 

CANT-RETRY-FNTRY-GONE 

CAN T -SUBS T 1 TUTF - WITH-STRING-OR-TUPLE-AND-OTHER 

CAN\ ' T-PARSE 

CHANNEL-CLOSED 

CONTROL-G? 

COUN T-GRL A H R-1IIAN-S1 RING-SIZE 

DANGEROUS- INTERRUPT-NOT-HANDLED 

DA TA-CANT-GO- IN-UNIFORM-VECTOR 

DATA-CAN\ * T -GO- IN -SI OR AGE 

OECL-ELEMLN1 -NOT-FORM-OR-ATOM 

DECL-VIOLAT ION 

DEVICE-OR-SNAME-DIFFERS 

ELEMENT - T YPE-NOT-ATOM-FORM-OR-VECTOR 

EMPTY-FORM- IN-Dt CL 

EMPTY-OR/ PRIM TYPE -FORM 

EMPTY-STRING 

END-OF-F ILF 

ERRET-TYPE-NAMF-DESIRED 
ERROR -IN -COMPILED -CODE 
FILE-NOT-rOUND 
FILE-SYSTEM-ERROR 


(for a CHANNEL) 

CGUNASS1GN <CHTYPE link ATOM» 
.READ-TABLE or .PARSE-TABLE is not • 
vector. 

Alleged look-up list is not of TYPE OBLIST 
or LIST. 

non-STRING argument to PARSE 
attempt to output ATOM with missing or 
>ero-length PNAME 


ATOM purports to be a TYPE but isn't. 

DECL problem 
#3S 

os 

Bad argument to RSUBR-ENTRY 
■NET" CHANNEL 
<CHTYPE 1 SUBR>$ 

attempt to GC-REAO a structure containing 
a TEMPLATE whose TYPE does not exist 
SAVE 

attempt to RETRY a call to an RSUBR- 
ENTRY whose RSUBR cannot be found 
<SUBSTITUTE "T* T>S 
< PARSE ■*>» < PARSE •)•>» 

<READ <CLOSE channel » S 

< PRINTSTRING .OUTCHAN 1>S 

(See section 21-8.15.) (ITS version only) 
t[ "STRING* ]S ! [ <FRAHE>]S 
FREEZE ISTORAGE 


RENAME 
DECL problem 

<0R> or <PRINTYPE> in DECL 
< READSTRING "">S 


RESTORE 
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FIRST-ARG-WRONG-TYPE 

FIRST-ELEMENT-OF-VECTOR-NOT-CODE 

FIRST-VECTOR-ELEMENT-NOT-REST-OR-A-FIX 

FRAME -NO- LONGER-EXISTS 

HANOLER- ALREADY- IN-USE 

HA5-EMPTY-B00Y 

ILLEGAL 

ILLEGAL-ARGUMrNT-BLOCK 

ILLEGAL-FRAME 
ILLEGAL-LOCATIVE 
ILLEGAL -SEGMENT 

ILLEGAL-TENEX-FILE-NAME 

INT-DEVICE-WRONG-TYPE-EVALUATIOH-RESULT 

INTERNAL -BACK -OR- TOP-OF-A-LIST 
INTERNAL- INTERRUPT 
INTERRUPT-UNAVAILABLE-ON-TENEX 
ITS-CMANNFLS-FXHAUSTED 

MEANINGLESS-PARAMETER-DECLARATION 
MESSAGE -TOO-BIG 
MUDOLE-VERSIONS-OIFFER 
NEGATIVE -ARGUMENT 
NIL-LIST-OF-OBLISTS 
NO-FIXUP-FILE 

NO-ITS-CHANNELS-FREE 
NO-MORE -PAGES 
NO-PROCESS-TO-RESUNE 
NO-ROOM-AVAILABLE 

NO-SAV-FILE 

NO-STORAGE 

NON-6-B IT-CHARACTER- IN-FILE-NAME 
NON-APPLICABLE-REP 
NON-APPl ICABI E-TYPE 
NON-ATOMIC-ARGUMENT 
NON- ATOM IC-OBLIST-NAME 
NON-DSK -DEVICE 
NON-EVALUATEABI F-TYPE 
NON-EXISTENT-TAG 

NON-STRUCTURED-ARG-TO-INTERNAL-PUT-REST-I 


RSUBR in bad form. 

IDECL ((X) <LIST [FOO]>) 

(unused) 

<#FUNCTION ((X)) 1>J 

attempt to PRINT a TUPLE that no longer 
exists 


Third and later arguments to MAPF/R 
not STRUCTURED. 

(Tenex and Tops-20 versions only) 
function for *INT a input CHANNEL 
returned non-CHARACTER . 
in compiled code 
(unused) 

(Tenex and Tops-20 versions only) 
Interpreter couldn't open an ITS I/O 
channel. 

bad object in argument LIST of Function 
1PC (ITS version only) 

RESTORE (version ■ release) 

<SET OBLIST '()> TS 

MDL couldn't find fixup file (section 

19.9). 

IPC-ON (ITS version only) 

for pure-code mapping 

<0R <RESUHER> <RESUME»S 

MDL couldn't allocate a page to map In 

pure code. 

MDL couldn't find pure-code file (section 
19.9). 

No free storage available for GROW. 

<VALUE REP> not APPLICABLE 


T»-3S 

(unused) 

(unused) 

(unused) 

l-TOP-OR-BACK in compiled code 
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NON - TYPE- FOR* [’RIMTYPE-ARG 
NOT-A-TTY-TYPE -CHANNEL 
NOT-HANUI FO 
NOT-IN-ARG-LIST 

NOT-IN-MAP-TUNCT ION 

NOT-IN-PROG 

NTH-BY-A-NCGATIVE -NUMBER 
NTH-REST -PUT-OUT-Or-RANGE 
NULL-SI RING 
NUMBER-OUT-OF-RANGE 
ON -AN -OB LIST -ALREADY 
OUT-OT -BOUNDS 
OVERFLOW 

PDL-OVLRF LOW-BUFFER-EXHAUSTED 

PROCF.SS-NOT -Rl SUMABIE 
PROCESS-NOT -RUNABl E-OR-RESUMABLE 
PURE -LOAD -FAILURE 

READER-5YN1 AX-ERROR-ERRET-ANYTHING-TO-GO-ON 
RSUBR-FNTRY-tINEINKEO 

RSUBR-1N BAD-rORMAT 
RSUBR-l AC'<S-r IXUPS 

SECOND-ARG WRONG-TYPE 
STORAGE-TYPES-DirFER 

STRUCTURE -CON I AINS-UNDUMPABLE -TYPE 
SUBSTITUTE-TYPE-FOR-TYPE 
TEMPLATE-TYPE -NAME -NOT-OF-TYPE-TEMPLATE 


TEMPLATE- TYPE-VIOLATION 

TIIIRO-ARG-WRONG-TYPE 

TOO-FFW-ARGUMt NTS-SUPPLIED 

TOO-MANY-ARGS-TO-PRIM1 YPE-DECL 

TOO-HANY-ARGS-TO-SPECIAL-UNSPECIAL-DECL 

TOO- MANY- ARGUMENTS -SUPPLIED 

TOP-LEVFL -FRAME 

TYPE-ALREADY-EXISTS 

TYPE-MISMATCH 

TYPE-UNDEE INED 

TYPES-DIFF FR-IN-STORAGE-OBJECT 
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<PRIMTYPE not-type> in DECL 

First argument to OFF not ONcd. 

TUPLE or ITUPLE called outside argument 
LIST. 

MAPRET, MAPLEAVE, MAPSTOP not within 
MAPF/R 

<RETURN>$ <AGAIN>$ 
in compiled code 
in compiled code 
zero-length STRING 
ZE38S 

CINSERT T <ROOT»S 

<1 '()>$ BLOAT argument too large 

</ 1 0>$ <* 1E30 1 E 30 >S 

Stack overflow while trying to expand 

stack: use RETRY. 

use of another PROCESS’S FRAME, etc. 

Pure-code file disappeared. 

RSUBR-ENTRY whose RSUBR cannot be 
fou nd 

KEEP-FIXUPS should have been true when 
RSUBR was input. 

<CHTYPE 1 LIST>$ <CHUTYPE ' ! [ 1 ] 
LIST>S 

<GC-DUMP <ME> <>>$ 

< SUBSTITUTE SUB R FSUBR>$ 
attempt to GC-READ a structure containing 
a TEMPLATE whose TYPE is defined but is 
not a TEMPLATE 


<PRIMTYPE any ...> 

<SPECIAL any ...> 

<ERRET> <FRAME < FRAME <FRAME»>S 
NEWTYPE 

attempt to make a value violate its DECL 
ISTORAGE 
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TYPES-011 \ ER-IM-UNITORM-VECTOR 

UNASS IGNI 0-VARIABLE 

UNAT T ACIII P-PA1II-> J AML -SEPARATOR 

UNBOUNIl-VAR IAB( C 

UNMATCIIi I) 

UVECTOR-PUT-l YPE-VIOl AT ION 




ENOBIOCK with no matching BLOCK 

PUT, SETLOC, SUBSTRUC in compiled 

code 

#DECL ((X) <LIST [ REST ]> ) 

<0PEN "MYFILE*>S (Mode missing or 
misspelt.) 


Appendix 4 



The MDL l*rog rim ming language 


Appendix 5. Initial Settings 


The various switches and us»ef nl variables in MDL are initially set up with the following values 

<ACT IVAIE-CHARS CSTRING <ASCII 7> <ASCII 19> <ASCII 15»> 

;"Tenex and Tops-20 versions only" 

coe ci -check r> 

< UN ASSIGN < GUN ASSIGN DEV» 

<GC-MON <>> 

<Sl 1 INDIAN <SI TG INDIAN COPEN "READ" "TTY : ">>> 

< UN ASSIGN KFEP-F IXUPS> 

< UN ASSIGN <GUNASSIGN NM1» 

< I IN ASSIGN <GUNASSIGN NM?>> 

cSI I OKU SI < SE 1 G OBI 1ST ( <M0Bl 1ST INITIAL 1 51 > <ROOT>)» 

CSE 1 Oil I CHAN <SE 1G OUTCHAN COPEN "PRINT" "TTY:">» 

<OV[ Rl LOW T> 

<UNASSTKN REDET 1NE> 

<RSUBR-L IMk 1> 

<SETG < UN ASSIGN SNM> "wor King-director y*> 

< SPECIAL-CHECK <>> 

<SPEC1A1 -MODE UNSPECIAI> 

<SE T I II IS-PROCLSS <SETG 1HIS-PR0CESS <MAIN»> 

<ON "CHAR" .QUITTER 0 0 ,INCHAN> 

CON "1PC" , 1PC-HANDLER 1> ;"ITS version only" 
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Topic Index 


Parenthesized words refer to other items in this index. 


arguments 


"OPTIONAL" "TUPLE" "AR6S" (parameter) 


arithmetic ♦ - * / ABS EXP LOG SIN COS ATAN MIN MAX RANDOM 0? IT «*? L? GT L«? 

G=? N=*T 


array 


VECTOR UVECTOR TUPLE STRING BYTES TEMPLATE 


assignment SET SETG DEFINE DEFMAC ENVIRONMENT (value parameter binding) 

binding BOUND? GBOUND? ASSIGNED? GASSIGNED? LEGAL? (assignment value parameter) 

bits WORD BITS PUTBITS GETBITS BYTES ANDB ORB XORB EQVB LSH ROT 


block 


BIND PROG REPEAT BLOCK ENDBLOCK OBLIST MOBLIST OBLISTT !- 


boolean 


FALSE COND AND AND? OR OR? NOT (comparison) 


(errors) 


FORM APPLY APPLICABLE? EVAL SEGMENT 


change 


character 


PUT-DECL PUTPROP SET SETG (side effect) 

CHARACTER STRING ASCII PRINC READCHR NEXTCHR FLATSIZE LISTEN PARSE 
LPARSE UNPARSE 


circular 


PU1 REST PUT LENGTH? FLATSIZE 


GVAL SETG 


comments 


; FUNCTION ASSOCIATION 


comparison r*? n=»7 =7 N=? G7 L=? L? G«7 0? 1? MAX MIN STRCOMP FLATSIZE LENGTH? 

(boolean) 


conditional 


COND AND OR (boolean) 


Topic Index 
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concatenation 
coroutine 
data type 

decimal 

do 

dump 

errors 

escape 

execute 

exit 

file system 

goto 

graphics 

identifier 


if 

indexing 

input 



integer 

interrupts 

iteration 

leave 


SEGMENT STRING CONS 

PROCESS STATE RESUME SUICIDE RESUMER ME MAIN BREAK-SEQ iSTEP FREE-RUN 

TYPE TYPE? PRIMTYPE TYPEPRIM CHTYPE UTYPE CHUTYPE NEWTYPE PRINTTYPE 
APPLYTYPE EVALTYPE ALLTYPES VALID-TYPE? 


(loops execute call) 

SAVE (output) 

FRAME ARGS FUNCT ERROR ERRORS ERRET RETRY UNWIND 
\ A S "0 

EVAL APPLY QUOTE FS'JBR *ARGS* (call) 

RETURN ACTIVATION (goto) 

FILECOPY FILE-LENGTH RENAME OPEN OPEN-NR CHANNEL FILE-EXISTS? NN1 NH2 
DEV SNM SNAME 

GO TAG UNWIND PROG REPEAT AGAIN RETURN ACTIVATION "ACT* (loops) 

STORAGE IMAGE 

ATOM PNAME SPNAME LINK LOOKUP INSERT REMOVE OBLIST SPECIAL (parameter 
value) 

(conditional) 

NTH OFFSET GET PUT BACK TOP (loops) 

READ READCIIR NEXTCHR READB READSTRING READ-TABLE GC-READ ECHOPAIR 
OPfcN ACCESS LOAD FLOAD RESTORE RESET 

FIX (arithmetic) 

EVENT HANDLER ON OFF ENABLE DISABLE INT-LEVEL DISMISS INTERRUPT 
(loops) 

(quit) 

Topic Index 
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i 




loading FLOAD SAVE RESTORE LOAO 

location (pointer) 

loops REPEAT PROG RETURN GO ACTIVATION AGAIN MAPF MAPR HIST IVECTOR 

IUVECTOR ISTRING IBYTES IFORH 

macro X XX LINK READ-TABLE PARSE-TABLE DEFMAC EXPAND MACRO 

monitor "READ* "WRITE* 

multi-processing (coroutine) 
octal * 


output 

parameter 

parentheses 

parse 

period 

pointer 

predicate 

primitives 

procedure 

quit 

real 

recursion 
search 
sharing 
side effect 


PRINT PR INI PRINC PRINTS PRINTSTRING IMAGE GC-DUMP ECHOPAIR FLATSIZE 
SAVE TERPRI CRLF OPEN ACCESS RESET BUFOUT NETS 

FUNCTION ATOM LVAL SET SPECIAL UNSPECIAL (identifier value) 

LIST 

PARSE LPARSE PARSE -TABLE UNPARSE 
LVAL SET READ 
LOCATIVE AT IN SETLOC LIST 
(boolean) 

SUBR FSUBR ROOT GVAL SETG 
FUNCTION OEFINE DEFMAC GVAL CLOSURE 
~G A S *0 QUIT VALRET LOGOUT RETURN (loops) 

FLOAT (arithmetic) 

(always assumed and built in) 

MCMQ MEMBER =7 »=? (comparison) 

SEGMENT GROW SUBSTRUC 

PUT PUTREST SETLOC SUBSTRUC (change) 

Topic Index 




sixbit 


storage 


structure 


temporary 


terminal 
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jname xjname send send-vait ipc-on 

GC BLOAT BLOAT-STAT FREEZE TUPLE 'GC* (structure) 


subroutine (procedure primitive) 


■AUX* BINO PROG REPEAT 


(character) 

!- OBLIST 
(boolean) 

icn T 5lTE^»^slc^.7tL°) Ut ECH0PAIR TTYECH0 TYI ’ BLOCKEO " " UNBL0CKE0- 

(binding) 

LVAL GVAL VALUE IN SET SETG ENVIRONMENT ASSIGNEO? GASSIGNED7 BOliNnv 

ceawot -BiKD- activation 
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Name Index 

"NET" 

ill 



"OPT" 

78 86 137 



"OPTIONAL" 

78 81 86 137 



"PARITY" 

189 

An underscored 

page number refers to a 

"PRINT" 

KM 

primary description: an unadorned page 

"PRINTB" 

104 

number refers to 

a secondary description. 

"PRINTO* 

KM 



"PURE" 

189 

1 " 

61 

"QUOTE" 

137 

! S 

17 

"READ" 

101 105 184 187 211 

• * 

67 

"READB" 

101 

! - 

tin 

"REALT" 

189 

! -#FALSE () 

1 13 

"RUNT" 

189 

( . 

67 20G 

"SAVE" 

108 

! < 

66 20G 

"STY" 

H2 

! > 

66 

"SYSD0WN" 

188 

![ 

51 

"TUPLE" 

79 87 105 137 

!\ 

6‘l 100 

"UNBLOCKED" 

187 

U 

54 

"VALUE" 

137 



"WRITE" 

187 211 

m 

21 55 100 



n y m 

102 

# 

24 44 46 100 

"ACT" 

84 87 



"ARGS" 

82 87 

$ 

4 16 98 113 184 185 187 

"AUX" 

81 87 103 105 



"BIND" 

83 86 

X 

24 152 

"BLOCKED" 

182 187 

XX 

152 

"CALL" 

83 87 



"CHAR" 

181 

1 

24 57 

"CLOCK" 

187 



"DIVERT -AGC" 

186 195 

( 

24 54 

"DSK" 

10? 108 



"ERROR" 

188 

) 

24 54 

"EXTRA" 

84 87 



"GC" 

|86 

* 

23 28 151 159 

"ILOPR" 

189 



"INFERIOR" 

189 

♦ 

28 151 

"INPUT" 

102 



"INT" 

113 

t 

24 31 

"IOC" 

189 



"IPC" 

189 203 

- 

28 151 

"MPV" 

189 



"MUD" 

102 

• 

23 24 32 

"MUDDLE" 

108 



"NAME" 

84 87 
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/ 

28 151 

BLOAT 

186 196 



BLOAT-STAT 

198 

0? 

71 

BLOCK 

142 145 



BLOCKED 

170 

1? 

72 

BOUND? 

79 175 187 

1STEP 

175 

BREAK -SEQ 

173 



BREAKER 

ill 

• 

21 10 

BUF0UT 

101 III 115 



BYTE-SIZE 

66 

< 

24 

BYTES 

55 65 66 213 

= »? 

72 211 

CALLER 

164 

a? 

72 93 

CIIANl.IST 

103 



CHANNEL 

65 101 102 103 104 122 

> 

24 

CHARACTER 

64 100 154 



CM TYPE 

45 211 

ABS 

28 • 

CMUTYPE 

64 216 

ACCI SS 

ioi no 

CLOSE 

[03 

ACTIVAlf -CHARS 

18 1 

CLOSURE 

88 

ACTIVAI ION 

81 150 183 193 205 

CODE 

164 

AGAIN 

85 90 150 175 

COMMENT 

122 

AGC-Fl AG 

I8G 

COND 

75 

ALLTYPES 

46 

CONS 

59 

AND 

73 70 185 

COS 

40 

AND? 

74 93 

CRLF 

100 IOI 

ANDB 

GG 101 



ANY 

125 

DEAD 

170 170 

APPLICABI l 


DECL 

[24 223 

APPLICABl 1 ? 

74 

DECL-CHECK 

*54 

APPLY 

48 88 

DECL? 

[35 

APPLY TYPE 

48 

DEFAULT 

141 

ARCS 

148 170 

DEFINE 

39 147 

ASCII 

05 

DETMAC 

156 

ASOC 

123 109 218 

01 MSI G 

203 

ASSIGN! P? 

70 79 175 187 

DEV 

[02 265 

ASSOCIATIONS 

123 

DISABLE 

182 

AT 

117 

DISMISS 

[75 [79 [83 

A1AN 

10 



Alan 

22 I0O M3 194 217 

ECHOPAIR 

IOI 113 146 

AVAI IN 

123 

EMPTY? 

74 



ENABLE 

182 

IAU 

on 215 

ENDBLOCK 

142 145 

•(•ACT 

100 

ENTRY-LOC 

166 

■ IM 

84 'HI 

ENVIRONMENT 

37 83 84 

|| f % 

IMI 

EQVB 

161 
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ERRI T 

10 1 IS |75 222 

GETL 

117 

ERROR 

IS 1 17 183 >0(1 

GETPL 

i 17 

ERRORS 

I F? 1 17 206 

GETPROP 

121 

EV/Al 

>0 18 S3 175 

GLOC 

117 165 

EVAL1YPF 

■IS 

GO 

% 175 205 

EVEN1 

ITS 179 181 

GROW 

GO 186 

EVLIN 

175 

GUNASSIGN 

32 

EVLOUT 

175 

GVAL 

31 39 41 117 169 193 194 208 

EXP 

II 



EXPAND 

157 

HANDLER 

178 179 179 180 185 



HANG 

ill 

f ALSE 

71 



FBIN 

fr.7 

IBYTES 

66 

FILE-IF NGTH 

101 110 

I FORM 

58 

FILE-I X1S1S 7 

103 

IIIEADER 

177 180 

FILrCOPY 

101 III 

HIST 

57 205 

FIX 

21 p 23 28 53 135 

ILLEGAL 

193 

FEAI5IZE 

100 

IMAGE 

101 107 186 

FIOAD 

IS 76 110 150 

IN 

116 118 119 

FIOA1 

22 23 

INCHAN 

103 146 

FORM 

27 33 58 71 

INDEX 

136 

FRAME. 

1 17 {48 176 103 213 

INDICATOR 

123 

FREE-RUN 

175 

IN I T 

18 

FREE/E 

164 ISO 101 

INITIAL 

141 265 

F SAVE 

108 

INSERT 

M3 145 

FSUBR 

28 31 30 30 5G 74 74 75 89 90 

INT-LEVEL 

183 


llli 131 147 150 

INTERNAL 

258 

FUNCI 

1 IS 176 

INTERNAL-TYPE 

258 

f unci ion 

27 

INTERRUPT 

ifu *2? 

FUNCTION 

35 39 78 83 84 

INTERRUPT-HANDLER 186 

Function 

84 

INTI RRUPTS 

142 177 



IPC-HANOLER 

Is 

G/lVAt. 

1 IS 

IPC-OFF 

203 

CD 

ii 

-xJ 

72 

IPC-ON 

203 

G 7 

7:> 

ISTORAGE 

239 

GASS I ONE 0 7 

70 187 

1ST RING 

57 64 

GROUND? 

70 132 193 

ITEM 

123 

GC 

186 103 

ITS 

17 18 102 108 112 1(3 114 115 

GC-DUMP 

101 107 100 


166 167 184 184 187 188 189 

GC-MON 

100 


189 189 195 202 202 

GC-READ 

101 107 186 109 

I TUPLE 

80 

GOECL 

131 

IUVECTOR 

57 

GET 

53 121 

IVECTOR 

57 

GET-DLCl 

131 136 



GETS ITS 

160 
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JNAME 

201 

MAPF 

9[ 92 



MAPLEAVE 

95 

KEEP-riXUPS 

107 265 

MAPR 

9[ 92 



MAPRET 

94 

L - INS 

1 10 

MAPSTOP 

95 

L-OUTS 

no 

MAX 

28 

L= 7 

72 

ME 

174 195 

L? 

72 

M1MBER 

73 

LAST-OUT 

I 10 

MI MQ 

73 

LEGAL? 

SO 85 !)7 NO 118 176 103 214 

MIN 

28 

LENGTH 

52 75 

MOBLIST 

140 144 

LENGTH? 

71 

MOO 

28 

LERR\ 

1 18 151 

MONAD? 

74 

LINK 

153 

MUDDLE 

[8 108 [42 

LIST 

5 1 57 57 50 68 72 186 204 212 




215 

Nss? 

72 

LISTEN 

1 10 1 10 ICO 183 

N=? 

73 

LLOC 

110 175 193 

NBIN 

166 

LMAP\ 

05 

NET ACC 

[[5 

LOAD 

101 109 

NETS 

101 [15 

LOCA 

117 

NETSTATE 

[15 

LOC AS 

117 

NEWTYPE 

46 [33 165 186 193 

LOCA II Vf 

125 214 

NEXT 

[23 

LOCATIVE? 

117 

NEXTCHR 

96 99 101 187 

LOCB 

117 

NM1 

102 265 

LOCO 

[16 117 193 214 

NM2 

102 265 

LOCL 

1 [7 

NOT 

73 

LOCR 

105 

NTH 

52 88 

LOCS 

117 



LOCT 

i 17 

OBLIST 

100 139 141 146 169 194 

LOCI) 

117 

OBLIST? 

140 

LOCV 

117 

OFF 

179 

LOG 

•! 

OFFSET 

135 214 

LOGOUT 

>02 

ON 

18[ 

LOOKUP 

in 

OPEN 

101 105 111 113 114 184 

LOSE 

58 01 64 

OPEN-NR 

[02 

LPARSE 

05 1 13 153 156 

OPT 

127 

LPROG\ 

90 

OPTIONAL 

127 

LSH 

io* 

OR 

74 76 

LVAL 

32 37 116 119 169 175 193 208 

OR? 

74 93 



ORB 

16[ 

MACRO 

90 156 

OUTCHAN 

49 [03 128 146 

MAIN 

174 174 195 

OVERFLOW 

ill 

MANITES1 

131 



MANIFEST? 

132 

PARSE 

65 143 143 153 156 157 
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PARSE-STRING 

156 

RESUMABLE 

170 

PARSE-1ABLE 

153 

RESUME 

170 17J 173 190 

PCODE 

161 

RESUMER 

1 74 

PNAME 

22 HI 217 

RETRY 

150 222 

PRIMTYPE 

11 

RETURN 

85 90 175 

PR IMTYPE-C 

165 

RGLOC 

165 

PR IN 1 

99 101 112 

ROOT 

141145 

PRINC 

100 101 112 

ROT 

162 

PRINT 

20 23 48 99 101 112 141 

RSUBR 

147 163 165 194 

PRINTB 

101 106 

RSUBR-ENTRY 

147 166 

PRINTSTRING 

101 106 

RSUBR-LINK 

161265 

PRINTTYPE 

18 

rubout 

17 98 113 

PROCESS 

146 169 170 190 193 219 

RUNABLE 

170 

PROG 

84 89 204 

RUNINT 

181 

PURE-PAGE-LOADER 186 

RUNNING 

170 

PURIFY 

108 186 194 199 

RUNTIMER 

189 

PUT 

53 56 68 88 120 



PUT-DECl 

134 136 

SAVE 

108 108 165 200 

PUTBITS 

161 

SEGMENT 

66 72 154 

PUTPROP 

120 

SEND 

202 

PUTREST 

59 69 

SEND-WAIT 

202 



SET 

32 37 175 186 194 

QUICK-ENTRY 

164 259 

SETG 

30 37 186 194 

QUICK-RSUBR 

164 259 

SETLOC 

116 118 119 

QUIT 

202 

SIN 

40 

QUITTER 

184 

SLEEP 

m 

QUOTE 

56 82 83 

SNAME 

no 



SNM 

102 108 110 265 

RANDOM 

29 

SORT 

61 73 

READ 

20 22 99 101 122 140 142 153 

SORTX 

62 


187 

SPECIAL 

127 156 193 223 

READ-TABLE 

153 

SPECIAL-CHECK 

134 

READA 

154 

SPECIAL-MODE 

128 134 

READB 

101 106 

SPLICE 

154 

READCHR 

96 99 101 105 112 113 187 

SPNAME 

144 

READSTRING 

101 106 112 

SQRT 

40 

REALTIMER 

189 

SQUOTA 

253 

REDEFINE 

10 265 

STACKFORM 

96 

REMOVE 

!±3. 

STATE 

170 

RENAME 

ioi m 

STORAGE 

194 

REP 

N6 

STRCOMP 

73 

REPEAT 

84 89 205 

STRING 

55 57 64 65 100 154 213 

RESET 

101 102 m 112 

STRUCTURED 

125 

REST 

52 56 75 126 219 

STRUCTURED? 

74 

RESTORE 

108 109 

SUBR 

28 31 147 
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Subroutine 

28 147 



SUBS 11 Hilt 

11!) 

XJNAME 

201 

SUBSTRUC 

51 56 

XORB 

161 

suicide 

174 

XUNAht 

201 

T 

71 

t 

24 54 

TAG 

% |!I3 



TEMPLATE 

55 66 >10 

\ 

25 55 100 154 

Tenex 

17 18 102 108 113 114 114 115 




151 1G7 178 184 187 188 189 

] 

24 54 


180 180 180 227 



TERPRI 

7C» 100 101 

A 

4 107 

THIS-PROCiSS 

171 174 

A 0 

17 58 98 113 

TIME 

201 

A D 

17 98 IIS 

TO 

III 

A G 

|7 150 184 

TOP 

GO >15 

A L 

17 98 113 

TOPLEVI L 

1 18 

"0 

17 m 

Tops-?0 

17 18 102 108 113 111 111 115 

A S 

17 146 m 184 


151 167 178 181 187 188 189 




18't 180 180 227 

1 

24 55 

TIYECIIO 

101 113 1 46 



TUPLE 

80 80 103 214 

> 

24 55 

TYI 

101 U3 187 187 



TYPE 

20 44 74 94 103 >11 >18 



TYPE-C 

iG5~ 



TYPE-W 

165 



TYPE? 

74 



TYPEPR1M 

45 



UNANE 

201 



UNASSIGN 

33 175 



UNBOUND 

218 250 



UNMAN IF ESI 

132 



UNPARSE 

65 144 



UNSPCCIAI 

127 221 223 



UNWIND 

150 223 



UTYPE 

63 



UVECTOR 

5 1 57 57 63 65 204 213 217 



VALID- I YPE ? 

46 



VALRET 

20> 



VALUE 

33 124 175 



VECTOR 

54 57 57 63 186 204 212 2IG 
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